Info-Mac 11

home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 11 / Info-Mac_XI_Disc_1.cdr_ / Info-Mac XI Disc 1.cdr / Programs / Science & Math / The Structure of DNA 1.1 / Structure of DNA 1.1 < prev
Unknown | 1996-12-01 | 932.1 KB | [MDOC/CHIZ]
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`1%`	dexvert	PageFocus Data `(other/pageFocusData)`	ext	Unsupported
`1%`	dexvert	Banyans VINES patch data `(other/banyansVINESPatchData)`	ext	Unsupported
`100%`	file	data	default
`42%`	TrID	GEM bitmap (v1)	default (weak)
`28%`	TrID	DEGAS med-res bitmap	default (weak)
`14%`	TrID	MacBinary 1	default (weak)
`14%`	TrID	Adobe PhotoShop Brush	default (weak)
`100%`	lsar	LZMA_Alone	default (weak)
`100%`	gt2	MAC Bilddatei	default (weak)
`100%`	xdgMime	font/ttf	default
id metadata
key	value
macFileType	`[MDOC]`
macFileCreator	`[CHIZ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 01 00 00 00 0e 90 40 | 00 00 00 00 00 00 00 00 |.......@|........|
|00000010| 00 00 00 80 00 00 00 38 | 00 00 00 00 00 00 00 00 |.......8|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 0e 90 40 00 00 16 80 | 00 0e 4a c0 00 00 16 40 |...@....|..J....@|
|00000210| 00 0e 4a c0 00 00 16 40 | 00 0e be 40 00 00 47 40 |..J....@|...@..G@|
|00000220| 00 0e be 40 00 00 47 40 | 00 0e be 40 00 00 47 40 |...@..G@|...@..G@|
|00000230| 00 0e c0 c0 00 00 52 40 | 00 0e c0 c0 00 00 52 40 |......R@|......R@|
|00000240| 00 0e c0 c0 00 00 52 40 | 00 0e c0 c0 00 00 52 40 |......R@|......R@|
|00000250| 00 0e c0 c0 00 00 52 40 | 00 0e c0 c0 00 00 52 40 |......R@|......R@|
|00000260| 00 0e c0 c0 00 00 52 40 | 00 0e c0 c0 00 00 52 40 |......R@|......R@|
|00000270| 00 0e c0 c0 00 00 52 40 | 9a 0a 00 b8 d6 20 00 9b |......R@|..... ..|
|00000280| ad 3a 00 9a 00 06 00 00 | 00 08 00 a8 6d 2a 20 04 |.:......|....m* .|
|00000290| 00 9a 00 9a 6f ea 00 00 | 00 00 00 00 00 05 a2 07 |....o...|........|
|000002a0| 40 81 00 f8 00 00 00 00 | 00 00 00 00 00 00 ff ff |@.......|........|
|000002b0| 00 00 00 1b 00 00 a7 7b | 23 fa a9 5b 60 d1 40 80 |.......{|#..[`.@.|
|000002c0| c1 62 00 00 00 01 00 00 | 00 01 40 81 2f c8 00 bf |.b......|..@./...|
|000002d0| 44 84 40 80 9a 0a 00 01 | 70 49 00 bf 44 8b 00 00 |D.@.....|pI..D...|
|000002e0| 00 00 00 00 00 01 00 01 | 70 42 20 00 40 81 40 81 |........|pB .@.@.|
|000002f0| 2f c8 00 00 00 00 00 00 | 00 01 00 01 70 42 00 bf |/.......|....pB..|
|00000300| 44 84 00 bf 44 00 00 01 | 70 42 40 81 40 8e 00 00 |D...D...|pB@.@...|
|00000310| a8 e8 00 00 02 9c 00 00 | 02 9c 00 00 00 03 00 bf |........|........|
|00000320| 44 00 40 81 37 9c 40 81 | 37 70 00 00 00 20 00 02 |D.@.7.@.|7p... ..|
|00000330| 20 04 00 02 db 1e 80 81 | 3d 40 ff f8 70 00 30 06 | .......|=@..p.0.|
|00000340| 80 bc 00 00 08 1b 00 00 | 00 00 40 81 13 ee 00 b4 |........|..@.....|
|00000350| e0 e8 00 b4 e1 08 00 b9 | 53 00 00 b8 d7 8e 00 02 |........|S.......|
|00000360| d9 fc 00 b8 d7 22 00 06 | 63 60 00 3d 31 1c 40 80 |....."..|c`.=1.@.|
|00000370| 9a 0a 00 b8 d7 22 00 9b | af 70 00 9a 00 06 00 00 |....."..|.p......|
|00000380| 00 08 00 a8 6d 2a 20 00 | 00 9a 00 9a 6f d6 ff d5 |....m* .|....o...|
|00000390| 00 00 00 01 ff ff 00 00 | 00 d1 00 00 00 00 00 05 |........|........|
|000003a0| 02 09 40 81 13 f2 00 00 | 00 00 ff d5 00 b8 d7 b4 |..@.....|........|
|000003b0| ff ff 40 81 37 70 00 00 | 00 20 00 02 20 04 00 02 |..@.7p..|. .. ...|
|000003c0| db 1e 80 81 3d 40 ff f8 | 70 00 00 00 00 d1 00 00 |....=@..|p.......|
|000003d0| 08 1b 00 00 00 01 00 9a | 6c ca 00 b4 e0 e8 00 b4 |........|l.......|
|000003e0| e1 08 00 b9 53 00 00 b8 | d9 b4 00 02 d9 fc 00 b8 |....S...|........|
|000003f0| d8 bc 40 80 9a 0a 00 b8 | d8 bc 00 9e 82 b0 00 9a |..@.....|........|
|00000400| 00 00 06 00 00 00 0d 80 | 00 00 0d c0 00 00 0e 00 |........|........|
|00000410| 00 00 0e 40 00 00 3c 80 | 00 00 0f 40 00 0e 31 00 |...@..<.|...@..1.|
|00000420| 00 00 0f 80 00 00 0e 80 | 00 0d 7d c0 00 0d cd 80 |........|..}.....|
|00000430| 00 0e 79 80 00 05 75 40 | 00 0d b1 80 00 02 88 00 |..y...u@|........|
|00000440| 00 08 0a 40 00 0d a8 00 | 00 09 92 00 00 0b 2c 80 |...@....|......,.|
|00000450| 00 03 eb 00 00 04 10 c0 | 00 05 67 00 00 04 2e 40 |........|..g....@|
|00000460| 00 02 ee 80 00 00 5e c0 | 00 04 d2 40 00 01 39 40 |......^.|...@..9@|
|00000470| 00 00 68 c0 00 02 2d 40 | 00 02 40 00 00 02 36 80 |..h...-@|..@...6.|
|00000480| 00 0d bb 80 00 0e 27 40 | 00 02 6b 00 00 00 38 00 |......'@|..k...8.|
|00000490| 00 02 74 c0 00 0e 1d c0 | 00 0d d8 00 00 02 b8 c0 |..t.....|........|
|000004a0| 00 02 7e 40 00 02 db c0 | 00 07 03 40 00 05 6b 80 |..~@....|...@..k.|
|000004b0| 00 02 47 40 00 04 05 80 | 00 02 91 c0 00 02 d3 40 |..G@....|.......@|
|000004c0| 00 02 e4 c0 00 07 8a 40 | 00 0e 4a 80 00 06 e5 40 |.......@|..J....@|
|000004d0| 00 06 ee c0 00 02 2b 40 | 00 06 f9 80 00 0d 89 c0 |......+@|........|
|000004e0| dd d8 45 40 80 81 3d 40 | ff f8 70 00 30 06 03 f1 |..E@..=@|..p.0...|
|000004f0| 00 00 00 0c 00 00 00 0a | 00 9a 72 c0 00 a3 f1 84 |........|..r.....|
|00000500| 00 b7 d5 68 00 b9 00 a3 | 98 00 00 a3 99 74 9a 0a |...h....|.....t..|
|00000510| 00 9a 30 06 80 bc 00 00 | 07 f3 00 a3 c1 20 00 9a |..0.....|..... ..|
|00000520| 92 d8 00 00 20 78 00 00 | ee 40 00 b8 00 01 00 01 |.... x..|.@......|
|00000530| ff d5 00 00 00 00 00 00 | 00 05 a0 0c 40 81 14 04 |........|....@...|
|00000540| 00 00 00 00 ff d5 00 b8 | d7 b4 80 53 e0 e8 00 b4 |........|...S....|
|00000550| 00 00 00 00 00 b8 d9 be | 00 b8 d9 ba 00 00 00 a3 |........|........|
|00000560| c1 14 00 00 92 d8 40 80 | de d8 00 00 00 00 40 80 |......@.|......@.|
|00000570| de 84 00 06 5c f2 40 80 | dd d8 45 80 00 00 1f 00 |....\.@.|..E.....|
|00000580| ff f8 70 00 30 06 80 bc | 00 00 07 f3 00 00 00 30 |..p.0...|.......0|
|00000590| 40 80 80 53 00 b7 ea e4 | 00 9a 92 d8 00 b8 d9 4c |@..S....|.......L|
|000005a0| 00 99 ec 58 40 80 9a 0a | 00 9a 92 d8 00 b4 e0 e8 |...X@...|........|
|000005b0| 00 09 17 b0 00 00 00 10 | 00 ab c9 68 20 04 40 80 |........|...h .@.|
|000005c0| 40 80 d9 a2 80 00 00 00 | 00 00 00 3c 00 00 00 38 |@.......|...<...8|
|000005d0| 00 00 00 b0 00 a3 c1 20 | 00 99 ec 58 00 99 ec 58 |....... |...X...X|
|000005e0| 3d 40 ff f8 70 00 30 06 | 00 00 00 00 13 8e 00 00 |=@..p.0.|........|
|000005f0| 00 00 00 09 00 05 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 07 42 | 00 00 07 80 00 00 00 3c |.......B|.......<|
|00000610| 00 28 01 00 01 22 00 00 | 00 00 00 fa 4c f4 00 fa |.(..."..|....L...|
|00000620| 4d 68 00 fa 4d 18 00 00 | 00 22 31 30 34 38 35 37 |Mh..M...|."104857|
|00000630| 36 30 30 30 0d 00 00 04 | 00 09 00 04 00 00 00 00 |6000....|........|
|00000640| 00 00 00 00 00 3c 00 14 | 01 42 01 ec 00 00 01 fa |.....<..|.B......|
|00000650| 00 3f 00 00 00 00 00 00 | 00 00 80 00 00 00 08 00 |.?......|........|
|00000660| 00 00 88 00 22 00 88 00 | 22 00 88 88 22 22 88 88 |...."...|"...""..|
|00000670| 22 22 88 aa 22 aa 88 aa | 22 aa cc aa 33 aa cc aa |"".."...|"...3...|
|00000680| 33 aa ee aa bb aa ee aa | bb aa ee bb bb ee ee bb |3.......|........|
|00000690| bb ee ff bb ff ee ff bb | ff ee ff bb ff ff ff bb |........|........|
|000006a0| ff ff 80 10 02 20 01 08 | 40 04 ff ff ff ff ff ff |..... ..|@.......|
|000006b0| ff ff 88 22 88 22 88 22 | 88 22 11 22 44 88 11 22 |..."."."|."."D.."|
|000006c0| 44 88 c4 80 0c 68 43 02 | 30 26 b1 30 03 1b d8 c0 |D....hC.|0&.0....|
|000006d0| 0c 8d aa 00 aa 00 aa 00 | aa 00 88 22 55 22 88 22 |........|..."U"."|
|000006e0| 55 22 88 55 22 55 88 55 | 22 55 77 dd 77 dd 77 dd |U".U"U.U|"Uw.w.w.|
|000006f0| 77 dd 80 00 00 00 00 00 | 00 00 aa 55 aa 55 aa 55 |w.......|...U.U.U|
|00000700| aa 55 03 84 48 30 0c 02 | 01 01 82 44 39 44 82 01 |.U..H0..|...D9D..|
|00000710| 01 01 88 14 22 41 88 41 | 22 14 80 80 41 3e 08 08 |...."A.A|"...A>..|
|00000720| 14 e3 22 04 8c 74 22 17 | 98 10 be 80 88 08 eb 08 |.."..t".|........|
|00000730| 88 80 25 c8 32 89 64 24 | 4c 92 a2 9c 41 be 2a c9 |..%.2.d$|L...A.*.|
|00000740| 14 eb 40 a0 00 00 04 0a | 00 00 80 40 20 00 02 04 |..@.....|...@ ...|
|00000750| 08 00 aa 00 80 00 88 00 | 80 00 ff 80 80 80 80 80 |........|........|
|00000760| 80 80 08 1c 22 c1 80 01 | 02 04 ff 80 80 80 ff 08 |...."...|........|
|00000770| 08 08 f8 74 22 47 8f 17 | 22 71 bf 00 bf bf b0 b0 |...t"G..|"q......|
|00000780| b0 b0 ff 7f be 5d a2 41 | 80 00 fa f5 fa f5 a0 50 |.....].A|.......P|
|00000790| a0 50 00 00 38 7c 7c 7c | 38 00 e1 c1 81 01 ff fd |.P..8||||8.......|
|000007a0| f9 f1 44 88 88 44 22 11 | 11 22 18 81 42 24 18 81 |..D..D".|."..B$..|
|000007b0| 42 24 11 aa 44 00 11 aa | 44 00 82 ba a2 aa 00 fb |B$..D...|D.......|
|000007c0| 02 fa 87 87 87 78 78 78 | 78 87 11 88 44 22 11 88 |.....xxx|x...D"..|
|000007d0| 44 22 ff 00 ff 00 ff 00 | ff 00 40 20 10 08 04 02 |D"......|..@ ....|
|000007e0| 01 80 01 02 04 08 10 20 | 40 80 e0 70 38 1c 0e 07 |....... |@..p8...|
|000007f0| 83 c1 e0 c1 83 07 0e 1c | 38 70 cc 66 33 99 cc 66 |........|8p.f3..f|
|00000800| 33 99 cc 99 33 66 cc 99 | 33 66 ff ff ff fd ff ff |3...3f..|3f......|
|00000810| ff df ff ef ff fe ff ef | ff fe ff bb ff aa ff bb |........|........|
|00000820| ff aa 00 20 70 3a 1e 0e | 1e 00 41 22 22 22 22 14 |... p:..|..A"""".|
|00000830| 08 80 33 33 cc cc 33 33 | cc cc 10 00 10 00 10 00 |..33..33|........|
|00000840| 55 00 42 24 18 18 24 42 | 81 81 00 00 05 00 ff ff |U.B$..$B|........|
|00000850| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000860| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff 00 00 |........|........|
|00000870| 00 00 3f fc 3f fc 3f fc | 3f fc 3f fc 3f fc 3f fc |..?.?.?.|?.?.?.?.|
|00000880| 3f fc 3f fc 3f fc 3f fc | 3f fc 00 00 00 00 00 00 |?.?.?.?.|?.......|
|00000890| 00 00 00 00 00 00 0f f0 | 0f f0 0f f0 0f f0 0f f0 |........|........|
|000008a0| 0f f0 0f f0 0f f0 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008b0| 00 00 00 00 00 00 00 00 | 00 00 03 c0 03 c0 03 c0 |........|........|
|000008c0| 03 c0 00 00 00 00 00 00 | 00 00 00 00 00 00 07 e0 |........|........|
|000008d0| 1f f8 3f fc 7f fe 7f fe | ff ff ff ff ff ff ff ff |..?.....|........|
|000008e0| ff ff ff ff 7f fe 7f fe | 3f fc 1f f8 07 e0 00 00 |........|?.......|
|000008f0| 00 00 03 c0 0f f0 1f f8 | 1f f8 3f fc 3f fc 3f fc |........|..?.?.?.|
|00000900| 3f fc 1f f8 1f f8 0f f0 | 03 c0 00 00 00 00 00 00 |?.......|........|
|00000910| 00 00 00 00 00 00 03 80 | 07 c0 0f e0 0f e0 0f e0 |........|........|
|00000920| 07 c0 03 80 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000930| 00 00 00 00 00 00 00 00 | 00 00 00 80 01 c0 00 80 |........|........|
|00000940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000950| 00 03 00 06 00 0c 00 18 | 00 30 00 60 00 c0 01 80 |........|.0.`....|
|00000960| 03 00 06 00 0c 00 18 00 | 30 00 60 00 c0 00 00 00 |........|0.`.....|
|00000970| 00 00 00 00 00 0c 00 18 | 00 30 00 60 00 c0 01 80 |........|.0.`....|
|00000980| 03 00 06 00 0c 00 18 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000990| 00 00 00 00 00 00 00 00 | 00 30 00 60 00 c0 01 80 |........|.0.`....|
|000009a0| 03 00 06 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 c0 01 80 |........|........|
|000009c0| 03 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009d0| c0 00 60 00 30 00 18 00 | 0c 00 06 00 03 00 01 80 |..`.0...|........|
|000009e0| 00 c0 00 60 00 30 00 18 | 00 0c 00 06 00 03 00 00 |...`.0..|........|
|000009f0| 00 00 00 00 18 00 0c 00 | 06 00 03 00 01 80 00 c0 |........|........|
|00000a00| 00 60 00 30 00 18 00 0c | 00 00 00 00 00 00 00 00 |.`.0....|........|
|00000a10| 00 00 00 00 00 00 00 00 | 06 00 03 00 01 80 00 c0 |........|........|
|00000a20| 00 60 00 30 00 00 00 00 | 00 00 00 00 00 00 00 00 |.`.0....|........|
|00000a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 03 00 01 80 |........|........|
|00000a40| 00 c0 00 00 00 00 00 00 | 00 00 00 00 00 00 01 80 |........|........|
|00000a50| 01 80 01 80 01 80 01 80 | 01 80 01 80 01 80 01 80 |........|........|
|00000a60| 01 80 01 80 01 80 01 80 | 01 80 01 80 01 80 00 00 |........|........|
|00000a70| 00 00 01 80 01 80 01 80 | 01 80 01 80 01 80 01 80 |........|........|
|00000a80| 01 80 01 80 01 80 01 80 | 01 80 00 00 00 00 00 00 |........|........|
|00000a90| 00 00 00 00 00 00 00 80 | 00 80 00 80 00 80 00 80 |........|........|
|00000aa0| 00 80 00 80 00 80 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 80 00 80 |........|........|
|00000ac0| 00 80 00 80 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 ff ff |........|........|
|00000ae0| ff ff 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 3f fc |........|......?.|
|00000b00| 3f fc 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |?.......|........|
|00000b10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 0f f0 |........|........|
|00000b20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 03 c0 |........|........|
|00000b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b50| 00 01 00 00 00 04 00 00 | 00 10 00 00 00 40 00 00 |........|.....@..|
|00000b60| 01 00 00 00 04 00 00 00 | 10 00 00 00 40 00 00 00 |........|....@...|
|00000b70| 00 00 00 00 00 00 00 08 | 00 00 00 20 00 00 00 80 |........|... ....|
|00000b80| 00 00 02 00 00 00 08 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b90| 00 00 00 00 00 00 00 00 | 00 00 00 20 00 00 00 80 |........|... ....|
|00000ba0| 00 00 02 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 80 |........|........|
|00000bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 80 |........|........|
|00000bd0| 00 00 00 00 00 80 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|00000be0| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|00000bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 92 49 |........|.......I|
|00000c00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c10| 00 00 01 00 00 00 10 04 | 00 00 00 40 00 00 20 00 |........|...@.. .|
|00000c20| 00 00 01 04 00 00 00 00 | 08 10 00 00 00 00 00 00 |........|........|
|00000c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 80 01 80 |........|........|
|00000c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 80 |........|........|
|00000c50| 03 c0 07 e0 0f f0 1f f8 | 3f fc 7f fe ff ff ff ff |........|?.......|
|00000c60| 7f fe 3f fc 1f f8 0f f0 | 07 e0 03 c0 01 80 00 00 |..?.....|........|
|00000c70| 00 00 00 00 01 80 03 c0 | 07 e0 0f f0 1f f8 1f f8 |........|........|
|00000c80| 0f f0 07 e0 03 c0 01 80 | 00 00 00 00 00 00 00 00 |........|........|
|00000c90| 00 00 00 00 00 00 00 00 | 00 00 00 00 6d b6 6d b6 |........|....m.m.|
|00000ca0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 0d b0 0d b0 |........|........|
|00000cc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 80 01 |........|........|
|00000cd0| 40 02 20 04 10 08 08 10 | 04 20 02 40 01 80 01 80 |@. .....|. .@....|
|00000ce0| 02 40 04 20 08 10 10 08 | 20 04 40 02 80 01 00 00 |.@. ....| .@.....|
|00000cf0| 00 00 00 00 00 00 08 10 | 04 20 02 40 01 80 01 80 |........|. .@....|
|00000d00| 02 40 04 20 08 10 00 00 | 00 00 00 00 00 00 00 00 |.@. ....|........|
|00000d10| 00 00 00 00 00 60 00 c0 | 00 80 07 70 0f f8 0f e0 |.....`..|...p....|
|00000d20| 0f e0 0f f8 0f f8 07 f0 | 03 60 00 00 00 00 00 03 |........|.`......|
|00000d30| 00 07 00 0e 00 0c 18 00 | 1c 00 0e 00 07 c0 03 e0 |........|........|
|00000d40| 00 70 00 38 00 18 30 00 | 70 00 e0 00 c0 00 67 78 |.p.8..0.|p.....gx|
|00000d50| 2f 78 36 7b 6d 6b 7b 61 | 76 20 36 38 00 a5 9d 20 |/x6{mk{a|v 68... |
|00000d60| 00 00 00 00 00 22 ca f0 | 00 94 d3 c8 7d 62 2f 62 |....."..|....}b/b|
|00000d70| 70 73 20 38 20 73 74 72 | 00 a5 89 d0 64 65 66 2f |ps 8 str|....def/|
|00000d80| 00 00 00 01 00 00 00 16 | 00 00 00 40 00 01 00 00 |........|...@....|
|00000d90| 00 02 00 00 00 66 00 00 | 00 00 00 01 00 02 00 00 |.....f..|........|
|00000da0| 00 06 00 00 00 00 00 00 | 00 00 26 f8 00 00 00 3c |........|..&....<|
|00000db0| 00 14 01 42 01 ec 00 00 | 00 00 00 80 00 00 00 00 |...B....|........|
|00000dc0| 00 00 00 02 00 00 00 10 | 00 00 00 40 00 01 00 00 |........|...@....|
|00000dd0| 00 00 00 00 00 64 00 00 | 00 00 00 00 00 00 00 00 |.....d..|........|
|00000de0| 00 01 16 78 9a 24 00 00 | 00 18 0d 00 00 04 00 09 |...x.$..|........|
|00000df0| 00 04 00 00 00 00 00 00 | 00 00 00 3c 00 14 01 42 |........|...<...B|
|00000e00| 00 00 00 03 00 00 00 10 | 00 00 00 40 00 01 00 00 |........|...@....|
|00000e10| 00 00 00 00 00 64 00 00 | 00 00 00 00 00 00 00 00 |.....d..|........|
|00000e20| 00 01 16 78 9a 24 00 00 | 00 18 0d 00 00 04 00 09 |...x.$..|........|
|00000e30| 00 04 00 00 00 00 00 00 | 00 00 00 3c 00 14 01 42 |........|...<...B|
|00000e40| 00 00 00 04 00 00 00 10 | 00 00 00 40 00 01 00 00 |........|...@....|
|00000e50| 00 00 00 00 00 64 00 00 | 00 00 00 00 00 00 00 00 |.....d..|........|
|00000e60| 00 01 16 78 9a 24 00 00 | 00 18 0d 00 00 04 00 09 |...x.$..|........|
|00000e70| 00 04 00 00 00 00 00 00 | 00 00 00 3c 00 14 01 42 |........|...<...B|
|00000e80| 00 00 00 09 00 00 00 82 | 00 00 00 c0 00 02 00 00 |........|........|
|00000e90| 00 0b 00 00 00 0a 00 00 | 00 67 00 00 00 66 49 4a |........|.g...fIJ|
|00000ea0| 8b a9 49 4a 8b a9 00 00 | 00 00 00 00 15 6b 72 6f |..IJ....|.....kro|
|00000eb0| 87 1e 8f df 3d 1b ba 87 | bb 88 01 0f 2d 05 fd e2 |....=...|....-...|
|00000ec0| 9f 25 3f 66 0d 05 be 62 | 95 f9 14 72 b4 0c 00 00 |.%?f...b|...r....|
|00000ed0| 00 07 00 00 00 0a 00 00 | 00 68 00 00 00 66 49 19 |........|.h...fI.|
|00000ee0| 5c c9 49 4a 8b a9 00 00 | 00 00 00 00 1e c8 62 07 |\.IJ....|......b.|
|00000ef0| 08 06 85 38 04 01 4c 05 | 08 00 09 02 04 04 02 80 |...8..L.|........|
|00000f00| 0c 2d 00 16 00 00 10 02 | 08 48 00 00 a0 00 00 00 |.-......|.H......|
|00000f10| 00 00 00 00 00 00 26 8c | 00 00 ff 08 00 00 00 00 |......&.|........|
|00000f20| 00 00 00 24 00 99 ec 58 | 00 00 00 01 00 00 00 01 |...$...X|........|
|00000f30| 00 00 ff ff ff ff ff ff | 00 01 00 00 00 00 00 00 |........|........|
|00000f40| 00 00 00 06 00 00 00 22 | 00 00 00 40 00 03 00 00 |......."|...@....|
|00000f50| 00 05 00 00 00 64 49 4a | 8b a9 00 00 00 00 00 00 |.....dIJ|........|
|00000f60| 00 08 00 00 00 65 98 91 | c7 fd 00 00 00 00 fb dc |.....e..|........|
|00000f70| 00 00 00 00 00 00 26 ec | fc 5e fc cc 7f ff fc cc |......&.|.^......|
|00000f80| 00 00 00 08 00 00 28 50 | 00 00 28 80 00 04 00 04 |......(P|..(.....|
|00000f90| 00 00 00 0f 00 00 00 27 | 00 00 00 04 00 00 00 c4 |.......'|........|
|00000fa0| 00 00 00 00 00 00 00 00 | 01 e0 02 80 00 78 00 64 |........|.....x.d|
|00000fb0| 01 2c 01 5e 00 fa 54 dc | 00 fa 55 20 00 01 00 27 |.,.^..T.|..U ...'|
|00000fc0| 00 00 00 0e 00 00 27 fb | 6f 6e 20 6d 6f 75 73 65 |......'.|on mouse|
|00000fd0| 44 6f 77 6e 0d 67 6c 6f | 62 61 6c 20 67 54 72 75 |Down.glo|bal gTru|
|00000fe0| 45 64 69 74 2c 20 67 41 | 70 70 6c 2c 20 67 44 6f |Edit, gA|ppl, gDo|
|00000ff0| 69 6e 67 48 6f 74 54 78 | 74 2c 67 53 74 6f 70 4f |ingHotTx|t,gStopO|
|00001000| 6e 43 6c 69 63 6b 0d 69 | 66 20 28 74 68 65 20 73 |nClick.i|f (the s|
|00001010| 6f 75 6e 64 ad 22 64 6f | 6e 65 22 29 20 61 6e 64 |ound."do|ne") and|
|00001020| 20 28 67 53 74 6f 70 4f | 6e 43 6c 69 63 6b 3d 74 | (gStopO|nClick=t|
|00001030| 72 75 65 29 20 74 68 65 | 6e 20 70 6c 61 79 20 73 |rue) the|n play s|
|00001040| 74 6f 70 0d 69 66 20 28 | 67 54 72 75 45 64 69 74 |top.if (|gTruEdit|
|00001050| 20 3d 20 74 72 75 65 29 | 20 61 6e 64 20 28 67 44 | = true)| and (gD|
|00001060| 6f 69 6e 67 48 6f 74 54 | 78 74 20 ad 20 74 72 75 |oingHotT|xt . tru|
|00001070| 65 29 20 74 68 65 6e 0d | 6c 6f 63 6b 20 73 63 72 |e) then.|lock scr|
|00001080| 65 65 6e 0d 73 65 6e 64 | 20 69 74 65 6d 53 65 6c |een.send| itemSel|
|00001090| 65 63 74 20 74 6f 20 69 | 74 65 6d 20 22 50 6f 69 |ect to i|tem "Poi|
|000010a0| 6e 74 65 72 20 54 6f 6f | 6c 22 20 6f 66 20 6d 65 |nter Too|l" of me|
|000010b0| 6e 75 20 22 54 6f 6f 6c | 73 22 20 6f 66 20 70 72 |nu "Tool|s" of pr|
|000010c0| 6f 6a 20 67 41 70 70 6c | 0d 70 75 74 20 66 61 6c |oj gAppl|.put fal|
|000010d0| 73 65 20 69 6e 74 6f 20 | 67 54 72 75 45 64 69 74 |se into |gTruEdit|
|000010e0| 0d 75 6e 6c 6f 63 6b 20 | 73 63 72 65 65 6e 0d 65 |.unlock |screen.e|
|000010f0| 6e 64 20 69 66 0d 70 61 | 73 73 20 6d 6f 75 73 65 |nd if.pa|ss mouse|
|00001100| 44 6f 77 6e 0d 65 6e 64 | 20 6d 6f 75 73 65 44 6f |Down.end| mouseDo|
|00001110| 77 6e 0d 0d 6f 6e 20 50 | 72 69 6e 74 49 74 0d 67 |wn..on P|rintIt.g|
|00001120| 6c 6f 62 61 6c 20 67 44 | 6f 63 2c 67 50 72 69 6e |lobal gD|oc,gPrin|
|00001130| 74 69 6e 67 2c 67 44 65 | 62 75 67 0d 69 66 20 73 |ting,gDe|bug.if s|
|00001140| 68 6f 72 74 20 6e 61 6d | 65 20 6f 66 20 77 64 20 |hort nam|e of wd |
|00001150| 31 3d 22 41 70 70 20 41 | 6e 63 68 6f 72 22 20 74 |1="App A|nchor" t|
|00001160| 68 65 6e 20 65 78 69 74 | 20 69 74 65 6d 53 65 6c |hen exit| itemSel|
|00001170| 65 63 74 0d 6f 70 65 6e | 20 70 72 69 6e 74 69 6e |ect.open| printin|
|00001180| 67 0d 69 66 20 74 68 65 | 20 72 65 73 75 6c 74 20 |g.if the| result |
|00001190| 3d 20 22 43 61 6e 63 65 | 6c 22 20 74 68 65 6e 20 |= "Cance|l" then |
|000011a0| 65 78 69 74 20 50 72 69 | 6e 74 49 74 0d 67 65 74 |exit Pri|ntIt.get|
|000011b0| 20 70 72 69 6e 74 49 6e | 66 6f 28 29 0d 69 66 20 | printIn|fo().if |
|000011c0| 69 74 ad 65 6d 70 74 79 | 20 74 68 65 6e 0d 73 65 |it.empty| then.se|
|000011d0| 74 57 69 6e 64 6f 77 20 | 77 64 20 32 20 6f 66 20 |tWindow |wd 2 of |
|000011e0| 70 72 6f 6a 20 67 44 6f | 63 0d 70 75 74 20 69 74 |proj gDo|c.put it|
|000011f0| 65 6d 20 34 20 6f 66 20 | 69 74 20 69 6e 74 6f 20 |em 4 of |it into |
|00001200| 66 69 72 73 74 50 61 67 | 65 0d 70 75 74 20 69 74 |firstPag|e.put it|
|00001210| 65 6d 20 35 20 6f 66 20 | 69 74 20 69 6e 74 6f 20 |em 5 of |it into |
|00001220| 6c 61 73 74 50 61 67 65 | 0d 67 65 74 20 6e 75 6d |lastPage|.get num|
|00001230| 20 6f 66 20 63 64 73 0d | 69 66 20 6c 61 73 74 50 | of cds.|if lastP|
|00001240| 61 67 65 3d 39 39 39 39 | 20 74 68 65 6e 20 70 75 |age=9999| then pu|
|00001250| 74 20 69 74 20 69 6e 74 | 6f 20 6c 61 73 74 50 61 |t it int|o lastPa|
|00001260| 67 65 0d 69 66 20 66 69 | 72 73 74 50 61 67 65 3e |ge.if fi|rstPage>|
|00001270| 31 20 6f 72 20 6c 61 73 | 74 50 61 67 65 3e 69 74 |1 or las|tPage>it|
|00001280| 20 6f 72 20 66 69 72 73 | 74 50 61 67 65 3e 6c 61 | or firs|tPage>la|
|00001290| 73 74 50 61 67 65 20 74 | 68 65 6e 0d 61 6e 73 77 |stPage t|hen.answ|
|000012a0| 65 72 20 22 49 6e 76 61 | 6c 69 64 20 70 61 67 65 |er "Inva|lid page|
|000012b0| 20 72 61 6e 67 65 20 73 | 65 6c 65 63 74 65 64 2e | range s|elected.|
|000012c0| 22 0d 65 78 69 74 20 69 | 74 65 6d 53 65 6c 65 63 |".exit i|temSelec|
|000012d0| 74 0d 65 6e 64 20 69 66 | 0d 70 75 74 20 74 72 75 |t.end if|.put tru|
|000012e0| 65 20 69 6e 74 6f 20 67 | 50 72 69 6e 74 69 6e 67 |e into g|Printing|
|000012f0| 0d 73 65 6e 64 20 63 6c | 6f 73 65 43 61 72 64 20 |.send cl|oseCard |
|00001300| 74 6f 20 74 68 69 73 20 | 63 64 0d 73 65 74 20 61 |to this |cd.set a|
|00001310| 6c 6c 6f 77 49 6e 74 65 | 72 72 75 70 74 73 20 74 |llowInte|rrupts t|
|00001320| 6f 20 74 72 75 65 0d 72 | 65 70 65 61 74 20 77 69 |o true.r|epeat wi|
|00001330| 74 68 20 69 3d 66 69 72 | 73 74 50 61 67 65 20 74 |th i=fir|stPage t|
|00001340| 6f 20 6c 61 73 74 50 61 | 67 65 0d 70 72 69 6e 74 |o lastPa|ge.print|
|00001350| 20 63 64 20 69 0d 65 6e | 64 20 72 65 70 65 61 74 | cd i.en|d repeat|
|00001360| 0d 70 75 74 20 66 61 6c | 73 65 20 69 6e 74 6f 20 |.put fal|se into |
|00001370| 67 50 72 69 6e 74 69 6e | 67 0d 73 65 74 20 61 6c |gPrintin|g.set al|
|00001380| 6c 6f 77 49 6e 74 65 72 | 72 75 70 74 73 20 74 6f |lowInter|rupts to|
|00001390| 20 67 44 65 62 75 67 0d | 73 65 6e 64 20 6f 70 65 | gDebug.|send ope|
|000013a0| 6e 43 61 72 64 20 74 6f | 20 74 68 69 73 20 63 64 |nCard to| this cd|
|000013b0| 0d 65 6e 64 20 69 66 0d | 65 6e 64 20 50 72 69 6e |.end if.|end Prin|
|000013c0| 74 49 74 0d 0d 6f 6e 20 | 6c 65 61 76 65 46 69 65 |tIt..on |leaveFie|
|000013d0| 6c 64 0d 63 6c 6f 73 65 | 46 69 65 6c 64 0d 65 6e |ld.close|Field.en|
|000013e0| 64 20 6c 65 61 76 65 46 | 69 65 6c 64 0d 0d 6f 6e |d leaveF|ield..on|
|000013f0| 20 63 6c 6f 73 65 46 69 | 65 6c 64 0d 67 6c 6f 62 | closeFi|eld.glob|
|00001400| 61 6c 20 67 43 75 72 72 | 65 6e 74 46 69 65 6c 64 |al gCurr|entField|
|00001410| 2c 20 67 54 72 75 45 64 | 69 74 2c 20 67 41 70 70 |, gTruEd|it, gApp|
|00001420| 6c 2c 20 67 44 6f 69 6e | 67 48 6f 74 54 78 74 2c |l, gDoin|gHotTxt,|
|00001430| 67 54 6f 6f 6c 0d 69 66 | 20 28 67 54 72 75 45 64 |gTool.if| (gTruEd|
|00001440| 69 74 20 3d 20 74 72 75 | 65 29 20 20 61 6e 64 20 |it = tru|e)  and |
|00001450| 28 67 44 6f 69 6e 67 48 | 6f 74 54 78 74 20 ad 20 |(gDoingH|otTxt . |
|00001460| 74 72 75 65 29 20 61 6e | 64 20 28 67 54 6f 6f 6c |true) an|d (gTool|
|00001470| 3d 22 62 72 6f 77 73 65 | 22 29 20 74 68 65 6e 0d |="browse|") then.|
|00001480| 6c 6f 63 6b 20 73 63 72 | 65 65 6e 0d 73 65 6e 64 |lock scr|een.send|
|00001490| 20 69 74 65 6d 53 65 6c | 65 63 74 20 74 6f 20 69 | itemSel|ect to i|
|000014a0| 74 65 6d 20 22 50 6f 69 | 6e 74 65 72 20 54 6f 6f |tem "Poi|nter Too|
|000014b0| 6c 22 20 6f 66 20 6d 65 | 6e 75 20 22 54 6f 6f 6c |l" of me|nu "Tool|
|000014c0| 73 22 20 6f 66 20 70 72 | 6f 6a 20 67 41 70 70 6c |s" of pr|oj gAppl|
|000014d0| 0d 70 75 74 20 66 61 6c | 73 65 20 69 6e 74 6f 20 |.put fal|se into |
|000014e0| 67 54 72 75 45 64 69 74 | 0d 75 6e 6c 6f 63 6b 20 |gTruEdit|.unlock |
|000014f0| 73 63 72 65 65 6e 0d 65 | 6e 64 20 69 66 0d 70 75 |screen.e|nd if.pu|
|00001500| 74 20 65 6d 70 74 79 20 | 69 6e 74 6f 20 67 43 75 |t empty |into gCu|
|00001510| 72 72 65 6e 74 46 69 65 | 6c 64 0d 65 6e 64 20 63 |rrentFie|ld.end c|
|00001520| 6c 6f 73 65 46 69 65 6c | 64 0d 0d 6f 6e 20 46 4c |loseFiel|d..on FL|
|00001530| 44 5f 43 4c 49 43 4b 20 | 70 72 69 6f 72 53 65 6c |D_CLICK |priorSel|
|00001540| 65 63 74 65 64 0d 0d 67 | 6c 6f 62 61 6c 20 67 53 |ected..g|lobal gS|
|00001550| 65 6c 65 63 74 65 64 2c | 20 67 41 70 70 6c 2c 20 |elected,| gAppl, |
|00001560| 67 54 72 75 45 64 69 74 | 2c 20 67 4e 6f 74 4d 6f |gTruEdit|, gNotMo|
|00001570| 76 65 64 0d 0d 69 66 20 | 28 67 53 65 6c 65 63 74 |ved..if |(gSelect|
|00001580| 65 64 20 3d 20 70 72 69 | 6f 72 53 65 6c 65 63 74 |ed = pri|orSelect|
|00001590| 65 64 29 20 61 6e 64 20 | 28 67 4e 6f 74 4d 6f 76 |ed) and |(gNotMov|
|000015a0| 65 64 20 3d 20 74 72 75 | 65 29 20 74 68 65 6e 0d |ed = tru|e) then.|
|000015b0| 70 75 74 20 74 72 75 65 | 20 69 6e 74 6f 20 67 54 |put true| into gT|
|000015c0| 72 75 45 64 69 74 0d 73 | 65 6e 64 20 69 74 65 6d |ruEdit.s|end item|
|000015d0| 53 65 6c 65 63 74 20 74 | 6f 20 69 74 65 6d 20 22 |Select t|o item "|
|000015e0| 42 72 6f 77 73 65 20 54 | 6f 6f 6c 22 20 6f 66 20 |Browse T|ool" of |
|000015f0| 6d 65 6e 75 20 22 54 6f | 6f 6c 73 22 20 6f 66 20 |menu "To|ols" of |
|00001600| 70 72 6f 6a 20 67 41 70 | 70 6c 0d 63 6c 69 63 6b |proj gAp|pl.click|
|00001610| 20 61 74 20 63 6c 69 63 | 6b 4c 6f 63 28 29 0d 65 | at clic|kLoc().e|
|00001620| 6e 64 20 69 66 0d 70 75 | 74 20 74 72 75 65 20 69 |nd if.pu|t true i|
|00001630| 6e 74 6f 20 67 4e 6f 74 | 4d 6f 76 65 64 0d 65 6e |nto gNot|Moved.en|
|00001640| 64 20 46 4c 44 5f 43 4c | 49 43 4b 0d 0d 6f 6e 20 |d FLD_CL|ICK..on |
|00001650| 72 65 73 69 7a 65 47 72 | 61 70 68 69 63 0d 67 6c |resizeGr|aphic.gl|
|00001660| 6f 62 61 6c 20 67 53 65 | 6c 65 63 74 65 64 0d 70 |obal gSe|lected.p|
|00001670| 75 74 20 4f 42 4a 5f 53 | 45 4c 45 43 54 45 44 28 |ut OBJ_S|ELECTED(|
|00001680| 29 20 69 6e 74 6f 20 67 | 53 65 6c 65 63 74 65 64 |) into g|Selected|
|00001690| 0d 69 66 20 28 74 68 65 | 20 73 74 79 6c 65 20 6f |.if (the| style o|
|000016a0| 66 20 67 53 65 6c 65 63 | 74 65 64 20 3d 20 22 62 |f gSelec|ted = "b|
|000016b0| 69 74 6d 61 70 22 29 20 | 4f 52 20 28 74 68 65 20 |itmap") |OR (the |
|000016c0| 6e 75 6d 62 65 72 20 6f | 66 20 69 74 65 6d 73 20 |number o|f items |
|000016d0| 69 6e 20 67 53 65 6c 65 | 63 74 65 64 20 ad 31 29 |in gSele|cted .1)|
|000016e0| 20 74 68 65 6e 20 0d 73 | 61 76 65 69 74 20 22 6e | then .s|aveit "n|
|000016f0| 6f 6e 65 22 2c 20 34 2c | 20 22 74 79 70 65 20 32 |one", 4,| "type 2|
|00001700| 22 0d 65 6e 64 20 69 66 | 0d 65 6e 64 20 72 65 73 |".end if|.end res|
|00001710| 69 7a 65 47 72 61 70 68 | 69 63 0d 0d 6f 6e 20 6f |izeGraph|ic..on o|
|00001720| 70 65 6e 46 69 65 6c 64 | 0d 67 6c 6f 62 61 6c 20 |penField|.global |
|00001730| 67 43 75 72 72 65 6e 74 | 46 69 65 6c 64 0d 70 75 |gCurrent|Field.pu|
|00001740| 74 20 73 65 6c 65 63 74 | 65 64 46 69 65 6c 64 28 |t select|edField(|
|00001750| 29 20 69 6e 74 6f 20 67 | 43 75 72 72 65 6e 74 46 |) into g|CurrentF|
|00001760| 69 65 6c 64 0d 65 6e 64 | 20 6f 70 65 6e 46 69 65 |ield.end| openFie|
|00001770| 6c 64 0d 0d 6f 6e 20 6c | 65 61 76 65 46 69 65 6c |ld..on l|eaveFiel|
|00001780| 64 0d 67 6c 6f 62 61 6c | 20 67 43 75 72 72 65 6e |d.global| gCurren|
|00001790| 74 46 69 65 6c 64 0d 70 | 75 74 20 65 6d 70 74 79 |tField.p|ut empty|
|000017a0| 20 69 6e 74 6f 20 67 43 | 75 72 72 65 6e 74 46 69 | into gC|urrentFi|
|000017b0| 65 6c 64 0d 65 6e 64 20 | 6c 65 61 76 65 46 69 65 |eld.end |leaveFie|
|000017c0| 6c 64 0d 0d 6f 6e 20 63 | 6c 6f 73 65 46 69 65 6c |ld..on c|loseFiel|
|000017d0| 64 0d 67 6c 6f 62 61 6c | 20 67 43 75 72 72 65 6e |d.global| gCurren|
|000017e0| 74 46 69 65 6c 64 0d 70 | 75 74 20 65 6d 70 74 79 |tField.p|ut empty|
|000017f0| 20 69 6e 74 6f 20 67 43 | 75 72 72 65 6e 74 46 69 | into gC|urrentFi|
|00001800| 65 6c 64 0d 65 6e 64 20 | 63 6c 6f 73 65 46 69 65 |eld.end |closeFie|
|00001810| 6c 64 0d 0d 6f 6e 20 73 | 61 76 65 69 74 20 74 79 |ld..on s|aveit ty|
|00001820| 70 65 2c 20 65 72 72 6f | 72 53 74 72 69 6e 67 2c |pe, erro|rString,|
|00001830| 20 65 72 72 6f 72 54 79 | 70 65 0d 67 6c 6f 62 61 | errorTy|pe.globa|
|00001840| 6c 20 67 4d 65 6d 45 72 | 72 2c 20 67 44 6f 63 2c |l gMemEr|r, gDoc,|
|00001850| 20 67 45 72 72 6f 72 2c | 20 67 54 79 70 65 2c 20 | gError,| gType, |
|00001860| 67 41 70 70 50 72 65 66 | 73 2c 67 4f 72 72 48 65 |gAppPref|s,gOrrHe|
|00001870| 61 70 0d 70 75 74 20 65 | 72 72 6f 72 54 79 70 65 |ap.put e|rrorType|
|00001880| 20 69 6e 74 6f 20 67 54 | 79 70 65 0d 69 66 20 74 | into gT|ype.if t|
|00001890| 79 70 65 20 69 73 20 69 | 6e 20 22 67 72 63 22 20 |ype is i|n "grc" |
|000018a0| 74 68 65 6e 0d 69 66 20 | 65 78 69 73 74 73 28 6c |then.if |exists(l|
|000018b0| 61 73 74 20 67 72 61 70 | 68 69 63 29 20 74 68 65 |ast grap|hic) the|
|000018c0| 6e 20 64 6f 20 22 73 65 | 74 20 74 68 65 20 76 69 |n do "se|t the vi|
|000018d0| 73 20 6f 66 20 6c 61 73 | 74 20 67 72 61 70 68 69 |s of las|t graphi|
|000018e0| 63 20 74 6f 20 66 61 6c | 73 65 22 0d 65 6e 64 20 |c to fal|se".end |
|000018f0| 69 66 0d 2d 2d 20 67 65 | 74 20 53 63 72 61 70 54 |if.-- ge|t ScrapT|
|00001900| 6f 44 69 73 6b 28 29 0d | 2d 2d 20 67 65 74 20 43 |oDisk().|-- get C|
|00001910| 6f 6d 70 4d 65 6d 28 31 | 35 30 30 30 30 30 29 0d |ompMem(1|500000).|
|00001920| 70 75 74 20 47 65 74 53 | 74 72 28 31 32 30 30 32 |put GetS|tr(12002|
|00001930| 2c 20 65 72 72 6f 72 53 | 74 72 69 6e 67 29 20 69 |, errorS|tring) i|
|00001940| 6e 74 6f 20 67 45 72 72 | 6f 72 0d 69 66 20 6e 6f |nto gErr|or.if no|
|00001950| 74 20 68 61 73 4d 65 6d | 6f 72 79 28 39 39 35 30 |t hasMem|ory(9950|
|00001960| 30 30 2a 67 4f 72 72 48 | 65 61 70 2f 31 32 30 30 |00*gOrrH|eap/1200|
|00001970| 29 20 74 68 65 6e 20 65 | 78 69 74 20 74 6f 20 53 |) then e|xit to S|
|00001980| 75 70 65 72 43 61 72 64 | 0d 73 61 76 65 0d 70 75 |uperCard|.save.pu|
|00001990| 74 20 65 6d 70 74 79 20 | 69 6e 74 6f 20 67 45 72 |t empty |into gEr|
|000019a0| 72 6f 72 0d 69 66 20 74 | 79 70 65 20 69 73 20 69 |ror.if t|ype is i|
|000019b0| 6e 20 22 67 72 63 22 20 | 74 68 65 6e 0d 69 66 20 |n "grc" |then.if |
|000019c0| 65 78 69 73 74 73 28 6c | 61 73 74 20 67 72 61 70 |exists(l|ast grap|
|000019d0| 68 69 63 29 20 74 68 65 | 6e 20 64 6f 20 22 73 65 |hic) the|n do "se|
|000019e0| 74 20 74 68 65 20 76 69 | 73 20 6f 66 20 6c 61 73 |t the vi|s of las|
|000019f0| 74 20 67 72 61 70 68 69 | 63 20 74 6f 20 74 72 75 |t graphi|c to tru|
|00001a00| 65 22 0d 65 6e 64 20 69 | 66 0d 65 6e 64 20 73 61 |e".end i|f.end sa|
|00001a10| 76 65 69 74 0d 0d 6f 6e | 20 52 65 76 65 72 74 5f |veit..on| Revert_|
|00001a20| 53 63 72 65 65 6e 0d 67 | 6c 6f 62 61 6c 20 67 45 |Screen.g|lobal gE|
|00001a30| 72 72 6f 72 2c 20 67 4d | 65 6d 6f 72 79 2c 20 67 |rror, gM|emory, g|
|00001a40| 54 79 70 65 2c 20 67 41 | 70 70 50 72 65 66 73 2c |Type, gA|ppPrefs,|
|00001a50| 20 67 53 65 6c 65 63 74 | 65 64 2c 20 6d 61 6b 69 | gSelect|ed, maki|
|00001a60| 6e 67 42 69 74 6d 61 70 | 2c 20 67 41 70 70 6c 2c |ngBitmap|, gAppl,|
|00001a70| 20 67 44 6f 63 0d 73 65 | 74 57 69 6e 64 6f 77 20 | gDoc.se|tWindow |
|00001a80| 77 64 20 32 20 6f 66 20 | 70 72 6f 6a 20 67 44 6f |wd 2 of |proj gDo|
|00001a90| 63 0d 69 66 20 28 22 74 | 79 70 65 20 34 22 20 69 |c.if ("t|ype 4" i|
|00001aa0| 73 20 4e 4f 54 20 69 6e | 20 67 54 79 70 65 29 20 |s NOT in| gType) |
|00001ab0| 74 68 65 6e 20 61 6e 73 | 77 65 72 20 67 45 72 72 |then ans|wer gErr|
|00001ac0| 6f 72 20 20 0d 69 66 20 | 67 4d 65 6d 6f 72 79 ad |or  .if |gMemory.|
|00001ad0| 30 20 74 68 65 6e 0d 46 | 72 65 65 49 74 28 67 4d |0 then.F|reeIt(gM|
|00001ae0| 65 6d 6f 72 79 29 0d 70 | 75 74 20 30 20 69 6e 74 |emory).p|ut 0 int|
|00001af0| 6f 20 67 4d 65 6d 6f 72 | 79 0d 65 6e 64 20 69 66 |o gMemor|y.end if|
|00001b00| 0d 69 66 20 22 74 79 70 | 65 20 34 22 20 69 73 20 |.if "typ|e 4" is |
|00001b10| 69 6e 20 67 54 79 70 65 | 20 74 68 65 6e 0d 69 66 |in gType| then.if|
|00001b20| 20 6d 61 6b 69 6e 67 42 | 69 74 6d 61 70 20 74 68 | makingB|itmap th|
|00001b30| 65 6e 20 0d 69 66 20 65 | 78 69 73 74 73 28 6c 61 |en .if e|xists(la|
|00001b40| 73 74 20 67 72 61 70 68 | 69 63 29 20 74 68 65 6e |st graph|ic) then|
|00001b50| 20 64 65 6c 65 74 65 20 | 6c 61 73 74 20 67 72 61 | delete |last gra|
|00001b60| 70 68 69 63 0d 61 6e 73 | 77 65 72 20 22 53 6f 72 |phic.ans|wer "Sor|
|00001b70| 72 79 2c 20 62 69 74 6d | 61 70 20 69 73 20 74 6f |ry, bitm|ap is to|
|00001b80| 6f 20 62 69 67 2c 20 74 | 72 79 20 61 20 73 6d 61 |o big, t|ry a sma|
|00001b90| 6c 6c 65 72 20 73 69 7a | 65 21 22 0d 70 75 74 20 |ller siz|e!".put |
|00001ba0| 46 41 4c 53 45 20 69 6e | 74 6f 20 6d 61 6b 69 6e |FALSE in|to makin|
|00001bb0| 67 42 69 74 6d 61 70 0d | 73 65 6e 64 20 53 45 54 |gBitmap.|send SET|
|00001bc0| 5f 50 4f 49 4e 54 45 52 | 20 74 6f 20 77 64 20 33 |_POINTER| to wd 3|
|00001bd0| 20 6f 66 20 70 72 6f 6a | 20 67 41 70 70 6c 0d 65 | of proj| gAppl.e|
|00001be0| 6e 64 20 69 66 0d 65 6e | 64 20 69 66 0d 6c 6f 63 |nd if.en|d if.loc|
|00001bf0| 6b 20 73 63 72 65 65 6e | 0d 69 66 20 22 74 79 70 |k screen|.if "typ|
|00001c00| 65 20 32 22 20 69 73 20 | 69 6e 20 67 54 79 70 65 |e 2" is |in gType|
|00001c10| 20 74 68 65 6e 0d 72 65 | 76 65 72 74 0d 69 66 20 | then.re|vert.if |
|00001c20| 65 78 69 73 74 73 28 6c | 61 73 74 20 67 72 61 70 |exists(l|ast grap|
|00001c30| 68 69 63 29 20 74 68 65 | 6e 20 64 6f 20 22 73 65 |hic) the|n do "se|
|00001c40| 74 20 74 68 65 20 76 69 | 73 20 6f 66 20 6c 61 73 |t the vi|s of las|
|00001c50| 74 20 67 72 61 70 68 69 | 63 20 74 6f 20 74 72 75 |t graphi|c to tru|
|00001c60| 65 22 0d 72 65 70 65 61 | 74 20 77 69 74 68 20 69 |e".repea|t with i|
|00001c70| 3d 31 20 74 6f 20 74 68 | 65 20 6e 75 6d 62 65 72 |=1 to th|e number|
|00001c80| 20 6f 66 20 69 74 65 6d | 73 20 69 6e 20 67 53 65 | of item|s in gSe|
|00001c90| 6c 65 63 74 65 64 0d 70 | 75 74 20 69 74 65 6d 20 |lected.p|ut item |
|00001ca0| 69 20 6f 66 20 67 53 65 | 6c 65 63 74 65 64 20 69 |i of gSe|lected i|
|00001cb0| 6e 74 6f 20 69 53 65 6c | 65 63 74 65 64 0d 64 6f |nto iSel|ected.do|
|00001cc0| 20 22 70 75 74 20 65 78 | 69 73 74 73 28 22 26 20 | "put ex|ists("& |
|00001cd0| 69 53 65 6c 65 63 74 65 | 64 20 26 26 20 22 6f 66 |iSelecte|d && "of|
|00001ce0| 20 74 68 69 73 20 77 69 | 6e 64 6f 77 20 6f 66 20 | this wi|ndow of |
|00001cf0| 74 68 69 73 20 70 72 6f | 6a 65 63 74 29 20 69 6e |this pro|ject) in|
|00001d00| 74 6f 20 6f 62 6a 45 78 | 69 73 74 73 22 0d 69 66 |to objEx|ists".if|
|00001d10| 20 6f 62 6a 45 78 69 73 | 74 73 20 74 68 65 6e 20 | objExis|ts then |
|00001d20| 73 65 74 20 74 68 65 20 | 73 65 6c 65 63 74 65 64 |set the |selected|
|00001d30| 20 6f 66 20 69 53 65 6c | 65 63 74 65 64 20 74 6f | of iSel|ected to|
|00001d40| 20 74 72 75 65 0d 65 6e | 64 20 72 65 70 65 61 74 | true.en|d repeat|
|00001d50| 0d 65 6e 64 20 69 66 20 | 0d 70 75 74 20 65 6d 70 |.end if |.put emp|
|00001d60| 74 79 20 69 6e 74 6f 20 | 67 45 72 72 6f 72 0d 75 |ty into |gError.u|
|00001d70| 6e 6c 6f 63 6b 20 73 63 | 72 65 65 6e 0d 65 6e 64 |nlock sc|reen.end|
|00001d80| 20 52 65 76 65 72 74 5f | 53 63 72 65 65 6e 0d 0d | Revert_|Screen..|
|00001d90| 6f 6e 20 6f 70 65 6e 57 | 69 6e 64 6f 77 0d 67 6c |on openW|indow.gl|
|00001da0| 6f 62 61 6c 20 67 41 70 | 70 6c 2c 67 52 75 6e 4d |obal gAp|pl,gRunM|
|00001db0| 6f 64 65 2c 67 4e 65 77 | 44 6f 63 2c 67 4f 70 65 |ode,gNew|Doc,gOpe|
|00001dc0| 6e 65 64 2c 63 72 69 74 | 69 63 61 6c 0d 70 75 74 |ned,crit|ical.put|
|00001dd0| 20 74 72 75 65 20 69 6e | 74 6f 20 67 4f 70 65 6e | true in|to gOpen|
|00001de0| 65 64 0d 70 75 74 20 46 | 41 4c 53 45 20 69 6e 74 |ed.put F|ALSE int|
|00001df0| 6f 20 63 72 69 74 69 63 | 61 6c 0d 67 65 74 20 6c |o critic|al.get l|
|00001e00| 69 6e 65 20 34 20 6f 66 | 20 63 64 20 66 6c 64 20 |ine 4 of| cd fld |
|00001e10| 31 20 6f 66 20 63 64 20 | 31 20 6f 66 20 77 64 20 |1 of cd |1 of wd |
|00001e20| 31 20 6f 66 20 74 68 69 | 73 20 70 72 6f 6a 0d 70 |1 of thi|s proj.p|
|00001e30| 75 74 20 69 74 65 6d 20 | 31 20 6f 66 20 69 74 20 |ut item |1 of it |
|00001e40| 69 6e 74 6f 20 65 64 69 | 74 50 57 6f 72 64 0d 70 |into edi|tPWord.p|
|00001e50| 75 74 20 69 74 65 6d 20 | 32 20 6f 66 20 69 74 20 |ut item |2 of it |
|00001e60| 69 6e 74 6f 20 72 75 6e | 50 57 6f 72 64 0d 69 66 |into run|PWord.if|
|00001e70| 20 67 52 75 6e 4d 6f 64 | 65 20 61 6e 64 20 72 75 | gRunMod|e and ru|
|00001e80| 6e 50 57 6f 72 64 ad 30 | 20 74 68 65 6e 20 69 66 |nPWord.0| then if|
|00001e90| 20 6e 6f 74 20 41 43 43 | 45 53 53 28 72 75 6e 50 | not ACC|ESS(runP|
|00001ea0| 57 6f 72 64 29 20 74 68 | 65 6e 20 63 6c 6f 73 65 |Word) th|en close|
|00001eb0| 20 61 6c 6c 20 77 64 73 | 0d 69 66 20 6e 6f 74 20 | all wds|.if not |
|00001ec0| 67 52 75 6e 4d 6f 64 65 | 20 61 6e 64 20 65 64 69 |gRunMode| and edi|
|00001ed0| 74 50 57 6f 72 64 ad 30 | 20 74 68 65 6e 20 69 66 |tPWord.0| then if|
|00001ee0| 20 6e 6f 74 20 41 43 43 | 45 53 53 28 65 64 69 74 | not ACC|ESS(edit|
|00001ef0| 50 57 6f 72 64 29 20 74 | 68 65 6e 20 65 78 69 74 |PWord) t|hen exit|
|00001f00| 20 6f 70 65 6e 57 69 6e | 64 6f 77 0d 70 75 74 20 | openWin|dow.put |
|00001f10| 73 68 6f 72 74 20 6e 61 | 6d 65 20 6f 66 20 74 68 |short na|me of th|
|00001f20| 69 73 20 70 72 6f 6a 20 | 69 6e 74 6f 20 67 4e 65 |is proj |into gNe|
|00001f30| 77 44 6f 63 0d 73 65 74 | 20 6e 61 6d 65 20 6f 66 |wDoc.set| name of|
|00001f40| 20 74 68 69 73 20 77 64 | 20 74 6f 20 67 4e 65 77 | this wd| to gNew|
|00001f50| 44 6f 63 0d 73 65 6e 64 | 20 49 4e 49 54 5f 44 4f |Doc.send| INIT_DO|
|00001f60| 43 20 74 6f 20 77 64 20 | 31 20 6f 66 20 70 72 6f |C to wd |1 of pro|
|00001f70| 6a 20 67 41 70 70 6c 0d | 65 6e 64 20 6f 70 65 6e |j gAppl.|end open|
|00001f80| 57 69 6e 64 6f 77 0d 0d | 66 75 6e 63 74 69 6f 6e |Window..|function|
|00001f90| 20 41 43 43 45 53 53 20 | 70 57 6f 72 64 0d 69 66 | ACCESS |pWord.if|
|00001fa0| 20 6e 6f 74 20 43 48 45 | 43 4b 5f 50 41 53 53 57 | not CHE|CK_PASSW|
|00001fb0| 4f 52 44 28 70 57 6f 72 | 64 29 20 74 68 65 6e 0d |ORD(pWor|d) then.|
|00001fc0| 61 6e 73 77 65 72 20 67 | 65 74 53 74 72 28 31 32 |answer g|etStr(12|
|00001fd0| 30 30 30 2c 35 34 29 0d | 63 6c 6f 73 65 20 77 64 |000,54).|close wd|
|00001fe0| 20 31 20 6f 66 20 74 68 | 69 73 20 70 72 6f 6a 0d | 1 of th|is proj.|
|00001ff0| 63 6c 6f 73 65 20 74 68 | 69 73 20 77 64 0d 72 65 |close th|is wd.re|
|00002000| 74 75 72 6e 20 66 61 6c | 73 65 0d 65 6c 73 65 20 |turn fal|se.else |
|00002010| 72 65 74 75 72 6e 20 74 | 72 75 65 0d 65 6e 64 20 |return t|rue.end |
|00002020| 41 43 43 45 53 53 0d 0d | 6f 6e 20 63 6c 6f 73 65 |ACCESS..|on close|
|00002030| 57 69 6e 64 6f 77 0d 67 | 6c 6f 62 61 6c 20 67 41 |Window.g|lobal gA|
|00002040| 70 70 6c 2c 67 44 6f 63 | 2c 67 4e 65 77 44 6f 63 |ppl,gDoc|,gNewDoc|
|00002050| 0d 73 65 6e 64 20 50 52 | 4f 46 49 4c 45 20 74 6f |.send PR|OFILE to|
|00002060| 20 77 64 20 31 20 6f 66 | 20 70 72 6f 6a 20 67 41 | wd 1 of| proj gA|
|00002070| 70 70 6c 0d 69 66 20 76 | 69 73 20 6f 66 20 77 64 |ppl.if v|is of wd|
|00002080| 20 31 20 6f 66 20 74 68 | 69 73 20 70 72 6f 6a 20 | 1 of th|is proj |
|00002090| 74 68 65 6e 20 63 6c 6f | 73 65 20 77 64 20 31 20 |then clo|se wd 1 |
|000020a0| 6f 66 20 74 68 69 73 20 | 70 72 6f 6a 0d 70 75 74 |of this |proj.put|
|000020b0| 20 22 22 20 69 6e 74 6f | 20 67 4e 65 77 44 6f 63 | "" into| gNewDoc|
|000020c0| 0d 73 65 6e 64 20 44 4f | 43 5f 4d 45 4e 55 53 20 |.send DO|C_MENUS |
|000020d0| 74 6f 20 77 64 20 31 20 | 6f 66 20 70 72 6f 6a 20 |to wd 1 |of proj |
|000020e0| 67 41 70 70 6c 0d 65 6e | 64 20 63 6c 6f 73 65 57 |gAppl.en|d closeW|
|000020f0| 69 6e 64 6f 77 0d 0d 6f | 6e 20 73 65 6c 65 63 74 |indow..o|n select|
|00002100| 57 69 6e 64 6f 77 0d 67 | 6c 6f 62 61 6c 20 67 4e |Window.g|lobal gN|
|00002110| 65 77 44 6f 63 2c 67 41 | 70 70 6c 2c 67 4f 70 65 |ewDoc,gA|ppl,gOpe|
|00002120| 6e 65 64 2c 67 43 75 72 | 72 57 69 6e 64 0d 70 75 |ned,gCur|rWind.pu|
|00002130| 74 20 74 68 65 20 73 68 | 6f 72 74 20 6e 61 6d 65 |t the sh|ort name|
|00002140| 20 6f 66 20 6d 65 20 69 | 6e 74 6f 20 67 43 75 72 | of me i|nto gCur|
|00002150| 72 57 69 6e 64 0d 69 66 | 20 67 4f 70 65 6e 65 64 |rWind.if| gOpened|
|00002160| 20 74 68 65 6e 0d 70 75 | 74 20 66 61 6c 73 65 20 | then.pu|t false |
|00002170| 69 6e 74 6f 20 67 4f 70 | 65 6e 65 64 0d 65 78 69 |into gOp|ened.exi|
|00002180| 74 20 73 65 6c 65 63 74 | 57 69 6e 64 6f 77 0d 65 |t select|Window.e|
|00002190| 6e 64 20 69 66 0d 70 75 | 74 20 73 68 6f 72 74 20 |nd if.pu|t short |
|000021a0| 6e 61 6d 65 20 6f 66 20 | 74 68 69 73 20 70 72 6f |name of |this pro|
|000021b0| 6a 20 69 6e 74 6f 20 67 | 4e 65 77 44 6f 63 0d 73 |j into g|NewDoc.s|
|000021c0| 65 6e 64 20 53 57 49 54 | 43 48 5f 50 52 4f 4a 20 |end SWIT|CH_PROJ |
|000021d0| 74 6f 20 77 64 20 31 20 | 6f 66 20 70 72 6f 6a 20 |to wd 1 |of proj |
|000021e0| 67 41 70 70 6c 0d 65 6e | 64 20 73 65 6c 65 63 74 |gAppl.en|d select|
|000021f0| 57 69 6e 64 6f 77 0d 0d | 6f 6e 20 6f 70 65 6e 43 |Window..|on openC|
|00002200| 61 72 64 0d 67 6c 6f 62 | 61 6c 20 67 41 70 70 6c |ard.glob|al gAppl|
|00002210| 0d 73 65 6e 64 20 43 41 | 52 44 5f 4f 50 45 4e 20 |.send CA|RD_OPEN |
|00002220| 74 6f 20 77 64 20 31 20 | 6f 66 20 70 72 6f 6a 20 |to wd 1 |of proj |
|00002230| 67 41 70 70 6c 0d 65 6e | 64 20 6f 70 65 6e 43 61 |gAppl.en|d openCa|
|00002240| 72 64 0d 0d 6f 6e 20 63 | 6c 6f 73 65 43 61 72 64 |rd..on c|loseCard|
|00002250| 0d 67 6c 6f 62 61 6c 20 | 67 41 70 70 6c 0d 73 65 |.global |gAppl.se|
|00002260| 6e 64 20 43 41 52 44 5f | 43 4c 4f 53 45 20 74 6f |nd CARD_|CLOSE to|
|00002270| 20 77 64 20 31 20 6f 66 | 20 70 72 6f 6a 20 67 41 | wd 1 of| proj gA|
|00002280| 70 70 6c 0d 65 6e 64 20 | 63 6c 6f 73 65 43 61 72 |ppl.end |closeCar|
|00002290| 64 0d 0d 6f 6e 20 6e 65 | 77 42 75 74 74 6f 6e 0d |d..on ne|wButton.|
|000022a0| 73 65 74 20 61 75 74 6f | 68 69 6c 69 74 65 20 6f |set auto|hilite o|
|000022b0| 66 20 74 61 72 67 65 74 | 20 74 6f 20 74 72 75 65 |f target| to true|
|000022c0| 0d 4e 45 57 5f 4f 42 4a | 0d 65 6e 64 20 6e 65 77 |.NEW_OBJ|.end new|
|000022d0| 42 75 74 74 6f 6e 0d 0d | 6f 6e 20 6e 65 77 46 69 |Button..|on newFi|
|000022e0| 65 6c 64 0d 4e 45 57 5f | 4f 42 4a 0d 65 6e 64 20 |eld.NEW_|OBJ.end |
|000022f0| 6e 65 77 46 69 65 6c 64 | 0d 0d 6f 6e 20 6e 65 77 |newField|..on new|
|00002300| 47 72 61 70 68 69 63 0d | 67 6c 6f 62 61 6c 20 67 |Graphic.|global g|
|00002310| 41 70 70 6c 2c 67 54 65 | 6d 70 6c 61 74 65 2c 67 |Appl,gTe|mplate,g|
|00002320| 44 72 61 77 50 61 74 68 | 2c 63 72 69 74 69 63 61 |DrawPath|,critica|
|00002330| 6c 0d 69 66 20 4e 4f 54 | 20 63 72 69 74 69 63 61 |l.if NOT| critica|
|00002340| 6c 20 74 68 65 6e 0d 69 | 66 20 67 44 72 61 77 50 |l then.i|f gDrawP|
|00002350| 61 74 68 20 74 68 65 6e | 0d 73 65 6e 64 42 61 63 |ath then|.sendBac|
|00002360| 6b 0d 52 45 53 54 4f 52 | 45 5f 54 4f 4f 4c 53 0d |k.RESTOR|E_TOOLS.|
|00002370| 65 6c 73 65 20 69 66 20 | 67 54 65 6d 70 6c 61 74 |else if |gTemplat|
|00002380| 65 3d 22 50 69 63 74 75 | 72 65 20 50 69 63 6b 22 |e="Pictu|re Pick"|
|00002390| 20 74 68 65 6e 20 73 65 | 74 20 73 63 72 69 70 74 | then se|t script|
|000023a0| 20 6f 66 20 74 61 72 67 | 65 74 20 74 6f 20 73 63 | of targ|et to sc|
|000023b0| 72 69 70 74 20 6f 66 20 | 67 72 63 20 32 20 6f 66 |ript of |grc 2 of|
|000023c0| 20 63 64 20 32 20 6f 66 | 20 77 64 20 37 20 6f 66 | cd 2 of| wd 7 of|
|000023d0| 20 70 72 6f 6a 20 67 41 | 70 70 6c 0d 69 66 20 73 | proj gA|ppl.if s|
|000023e0| 74 79 6c 65 20 6f 66 20 | 74 61 72 67 65 74 ad 22 |tyle of |target."|
|000023f0| 62 69 74 6d 61 70 22 20 | 74 68 65 6e 20 53 45 4c |bitmap" |then SEL|
|00002400| 45 43 54 5f 4e 45 57 5f | 4f 42 4a 0d 65 6c 73 65 |ECT_NEW_|OBJ.else|
|00002410| 20 20 0d 73 65 74 20 74 | 68 65 20 6c 6f 63 6b 53 |  .set t|he lockS|
|00002420| 63 72 65 65 6e 20 74 6f | 20 74 72 75 65 0d 70 75 |creen to| true.pu|
|00002430| 74 20 74 68 65 20 74 6f | 70 4c 65 66 74 20 6f 66 |t the to|pLeft of|
|00002440| 20 74 68 65 20 74 61 72 | 67 65 74 20 69 6e 74 6f | the tar|get into|
|00002450| 20 6e 65 77 54 6f 70 4c | 65 66 74 0d 70 75 74 20 | newTopL|eft.put |
|00002460| 74 68 65 20 62 6f 74 52 | 69 67 68 74 20 6f 66 20 |the botR|ight of |
|00002470| 74 68 65 20 74 61 72 67 | 65 74 20 69 6e 74 6f 20 |the targ|et into |
|00002480| 6e 65 77 42 6f 74 52 69 | 67 68 74 0d 73 61 76 65 |newBotRi|ght.save|
|00002490| 69 74 20 22 6e 6f 6e 65 | 22 2c 20 32 2c 20 22 74 |it "none|", 2, "t|
|000024a0| 79 70 65 20 34 22 0d 70 | 75 74 20 54 52 55 45 20 |ype 4".p|ut TRUE |
|000024b0| 69 6e 74 6f 20 63 72 69 | 74 69 63 61 6c 20 20 20 |into cri|tical   |
|000024c0| 0d 64 72 61 67 20 66 72 | 6f 6d 20 6e 65 77 54 6f |.drag fr|om newTo|
|000024d0| 70 4c 65 66 74 20 74 6f | 20 6e 65 77 42 6f 74 52 |pLeft to| newBotR|
|000024e0| 69 67 68 74 20 20 0d 73 | 65 74 20 74 68 65 20 6c |ight  .s|et the l|
|000024f0| 6f 63 6b 53 63 72 65 65 | 6e 20 74 6f 20 66 61 6c |ockScree|n to fal|
|00002500| 73 65 0d 65 6e 64 20 69 | 66 0d 65 6c 73 65 20 70 |se.end i|f.else p|
|00002510| 75 74 20 46 41 4c 53 45 | 20 69 6e 74 6f 20 63 72 |ut FALSE| into cr|
|00002520| 69 74 69 63 61 6c 0d 65 | 6e 64 20 6e 65 77 47 72 |itical.e|nd newGr|
|00002530| 61 70 68 69 63 0d 0d 6f | 6e 20 63 61 72 64 43 6c |aphic..o|n cardCl|
|00002540| 69 63 6b 0d 4f 42 4a 5f | 43 4c 49 43 4b 0d 65 6e |ick.OBJ_|CLICK.en|
|00002550| 64 20 63 61 72 64 43 6c | 69 63 6b 0d 0d 6f 6e 20 |d cardCl|ick..on |
|00002560| 64 72 61 67 42 75 74 74 | 6f 6e 0d 4f 42 4a 5f 43 |dragButt|on.OBJ_C|
|00002570| 4c 49 43 4b 0d 65 6e 64 | 20 64 72 61 67 42 75 74 |LICK.end| dragBut|
|00002580| 74 6f 6e 0d 0d 6f 6e 20 | 64 72 61 67 46 69 65 6c |ton..on |dragFiel|
|00002590| 64 0d 67 6c 6f 62 61 6c | 20 67 4e 6f 74 4d 6f 76 |d.global| gNotMov|
|000025a0| 65 64 0d 70 75 74 20 66 | 61 6c 73 65 20 69 6e 74 |ed.put f|alse int|
|000025b0| 6f 20 67 4e 6f 74 4d 6f | 76 65 64 0d 4f 42 4a 5f |o gNotMo|ved.OBJ_|
|000025c0| 43 4c 49 43 4b 0d 65 6e | 64 20 64 72 61 67 46 69 |CLICK.en|d dragFi|
|000025d0| 65 6c 64 0d 0d 6f 6e 20 | 64 72 61 67 47 72 61 70 |eld..on |dragGrap|
|000025e0| 68 69 63 0d 4f 42 4a 5f | 43 4c 49 43 4b 0d 65 6e |hic.OBJ_|CLICK.en|
|000025f0| 64 20 64 72 61 67 47 72 | 61 70 68 69 63 0d 0d 6f |d dragGr|aphic..o|
|00002600| 6e 20 64 65 6c 65 74 65 | 42 75 74 74 6f 6e 0d 4f |n delete|Button.O|
|00002610| 42 4a 5f 44 45 4c 45 54 | 45 0d 65 6e 64 20 64 65 |BJ_DELET|E.end de|
|00002620| 6c 65 74 65 42 75 74 74 | 6f 6e 0d 0d 6f 6e 20 64 |leteButt|on..on d|
|00002630| 65 6c 65 74 65 46 69 65 | 6c 64 0d 4f 42 4a 5f 44 |eleteFie|ld.OBJ_D|
|00002640| 45 4c 45 54 45 0d 65 6e | 64 20 64 65 6c 65 74 65 |ELETE.en|d delete|
|00002650| 46 69 65 6c 64 0d 0d 6f | 6e 20 64 65 6c 65 74 65 |Field..o|n delete|
|00002660| 47 72 61 70 68 69 63 0d | 4f 42 4a 5f 44 45 4c 45 |Graphic.|OBJ_DELE|
|00002670| 54 45 0d 65 6e 64 20 64 | 65 6c 65 74 65 47 72 61 |TE.end d|eleteGra|
|00002680| 70 68 69 63 0d 0d 6f 6e | 20 64 6f 75 62 6c 65 43 |phic..on| doubleC|
|00002690| 6c 69 63 6b 42 75 74 74 | 6f 6e 0d 4f 42 4a 5f 49 |lickButt|on.OBJ_I|
|000026a0| 4e 46 4f 0d 66 6c 75 73 | 68 45 76 65 6e 74 73 0d |NFO.flus|hEvents.|
|000026b0| 65 6e 64 20 64 6f 75 62 | 6c 65 43 6c 69 63 6b 42 |end doub|leClickB|
|000026c0| 75 74 74 6f 6e 0d 0d 6f | 6e 20 64 6f 75 62 6c 65 |utton..o|n double|
|000026d0| 43 6c 69 63 6b 46 69 65 | 6c 64 0d 4f 42 4a 5f 49 |ClickFie|ld.OBJ_I|
|000026e0| 4e 46 4f 0d 66 6c 75 73 | 68 45 76 65 6e 74 73 0d |NFO.flus|hEvents.|
|000026f0| 65 6e 64 20 64 6f 75 62 | 6c 65 43 6c 69 63 6b 46 |end doub|leClickF|
|00002700| 69 65 6c 64 0d 0d 6f 6e | 20 64 6f 75 62 6c 65 43 |ield..on| doubleC|
|00002710| 6c 69 63 6b 47 72 61 70 | 68 69 63 0d 4f 42 4a 5f |lickGrap|hic.OBJ_|
|00002720| 49 4e 46 4f 0d 66 6c 75 | 73 68 45 76 65 6e 74 73 |INFO.flu|shEvents|
|00002730| 0d 65 6e 64 20 64 6f 75 | 62 6c 65 43 6c 69 63 6b |.end dou|bleClick|
|00002740| 47 72 61 70 68 69 63 0d | 0d 6f 6e 20 72 65 74 75 |Graphic.|.on retu|
|00002750| 72 6e 4b 65 79 0d 67 6c | 6f 62 61 6c 20 67 53 65 |rnKey.gl|obal gSe|
|00002760| 61 72 63 68 0d 66 69 6e | 64 20 73 74 72 69 6e 67 |arch.fin|d string|
|00002770| 20 67 53 65 61 72 63 68 | 0d 65 6e 64 20 72 65 74 | gSearch|.end ret|
|00002780| 75 72 6e 4b 65 79 0d 0d | 6f 6e 20 65 6e 74 65 72 |urnKey..|on enter|
|00002790| 4b 65 79 0d 67 6c 6f 62 | 61 6c 20 67 53 65 61 72 |Key.glob|al gSear|
|000027a0| 63 68 0d 66 69 6e 64 20 | 73 74 72 69 6e 67 20 67 |ch.find |string g|
|000027b0| 53 65 61 72 63 68 0d 65 | 6e 64 20 65 6e 74 65 72 |Search.e|nd enter|
|000027c0| 4b 65 79 0d 0d 6f 6e 20 | 4e 45 57 5f 4f 42 4a 0d |Key..on |NEW_OBJ.|
|000027d0| 67 6c 6f 62 61 6c 20 67 | 52 75 6e 4d 6f 64 65 2c |global g|RunMode,|
|000027e0| 67 54 6f 6f 6c 0d 0d 70 | 75 74 20 54 65 78 74 4d |gTool..p|ut TextM|
|000027f0| 65 6e 75 73 28 20 36 2c | 20 31 35 2c 20 31 36 2c |enus( 6,| 15, 16,|
|00002800| 20 31 37 2c 20 31 38 2c | 20 32 30 30 2c 20 35 2c | 17, 18,| 200, 5,|
|00002810| 20 65 6d 70 74 79 29 20 | 69 6e 74 6f 20 74 68 65 | empty) |into the|
|00002820| 45 72 72 6f 72 0d 69 66 | 20 74 68 65 45 72 72 6f |Error.if| theErro|
|00002830| 72 20 3c 3e 20 65 6d 70 | 74 79 20 74 68 65 6e 20 |r <> emp|ty then |
|00002840| 61 6e 73 77 65 72 20 74 | 68 65 45 72 72 6f 72 0d |answer t|heError.|
|00002850| 0d 69 66 20 67 52 75 6e | 4d 6f 64 65 20 74 68 65 |.if gRun|Mode the|
|00002860| 6e 20 65 78 69 74 20 4e | 45 57 5f 4f 42 4a 0d 6c |n exit N|EW_OBJ.l|
|00002870| 6f 63 6b 20 73 63 72 65 | 65 6e 0d 73 65 74 20 69 |ock scre|en.set i|
|00002880| 6e 6b 20 6f 66 20 74 68 | 65 20 74 61 72 67 65 74 |nk of th|e target|
|00002890| 20 74 6f 20 73 68 61 64 | 31 0d 67 65 74 20 77 6f | to shad|1.get wo|
|000028a0| 72 64 20 33 20 6f 66 20 | 67 54 6f 6f 6c 0d 69 66 |rd 3 of |gTool.if|
|000028b0| 20 69 74 3d 31 20 74 68 | 65 6e 20 73 65 74 41 74 | it=1 th|en setAt|
|000028c0| 74 72 73 20 74 68 65 20 | 74 61 72 67 65 74 2c 66 |trs the |target,f|
|000028d0| 61 6c 73 65 2c 66 61 6c | 73 65 2c 30 0d 65 6c 73 |alse,fal|se,0.els|
|000028e0| 65 20 69 66 20 69 74 3d | 32 20 74 68 65 6e 20 73 |e if it=|2 then s|
|000028f0| 65 74 41 74 74 72 73 20 | 74 68 65 20 74 61 72 67 |etAttrs |the targ|
|00002900| 65 74 2c 74 72 75 65 2c | 74 72 75 65 2c 30 0d 65 |et,true,|true,0.e|
|00002910| 6c 73 65 20 69 66 20 69 | 74 3d 33 20 74 68 65 6e |lse if i|t=3 then|
|00002920| 20 73 65 74 41 74 74 72 | 73 20 74 68 65 20 74 61 | setAttr|s the ta|
|00002930| 72 67 65 74 2c 74 72 75 | 65 2c 74 72 75 65 2c 32 |rget,tru|e,true,2|
|00002940| 0d 53 45 4c 45 43 54 5f | 4e 45 57 5f 4f 42 4a 0d |.SELECT_|NEW_OBJ.|
|00002950| 65 6e 64 20 4e 45 57 5f | 4f 42 4a 0d 0d 6f 6e 20 |end NEW_|OBJ..on |
|00002960| 73 65 74 41 74 74 72 73 | 20 6f 62 6a 2c 70 31 2c |setAttrs| obj,p1,|
|00002970| 70 32 2c 70 33 0d 73 65 | 74 20 73 68 6f 77 50 65 |p2,p3.se|t showPe|
|00002980| 6e 20 6f 66 20 6f 62 6a | 20 74 6f 20 70 31 0d 73 |n of obj| to p1.s|
|00002990| 65 74 20 73 68 6f 77 46 | 69 6c 6c 20 6f 66 20 6f |et showF|ill of o|
|000029a0| 62 6a 20 74 6f 20 70 32 | 0d 73 65 74 20 73 68 61 |bj to p2|.set sha|
|000029b0| 64 6f 77 20 6f 66 20 6f | 62 6a 20 74 6f 20 70 33 |dow of o|bj to p3|
|000029c0| 0d 65 6e 64 20 73 65 74 | 41 74 74 72 73 0d 0d 6f |.end set|Attrs..o|
|000029d0| 6e 20 53 45 4c 45 43 54 | 5f 4e 45 57 5f 4f 42 4a |n SELECT|_NEW_OBJ|
|000029e0| 0d 0d 67 6c 6f 62 61 6c | 20 67 41 70 70 6c 2c 67 |..global| gAppl,g|
|000029f0| 54 6f 6f 6c 50 61 6c 2c | 67 4f 62 6a 50 61 6c 2c |ToolPal,|gObjPal,|
|00002a00| 67 53 6b 69 6c 6c 2c 67 | 53 65 6c 65 63 74 65 64 |gSkill,g|Selected|
|00002a10| 2c 67 54 6f 6f 6c 2c 67 | 54 72 75 45 64 69 74 2c |,gTool,g|TruEdit,|
|00002a20| 67 44 6f 69 6e 67 48 6f | 74 54 78 74 0d 69 66 20 |gDoingHo|tTxt.if |
|00002a30| 28 67 44 6f 69 6e 67 48 | 6f 74 54 78 74 20 3d 20 |(gDoingH|otTxt = |
|00002a40| 74 72 75 65 29 20 74 68 | 65 6e 0d 69 66 20 6f 70 |true) th|en.if op|
|00002a50| 74 69 6f 6e 4b 65 79 28 | 29 3d 75 70 20 74 68 65 |tionKey(|)=up the|
|00002a60| 6e 0d 69 66 20 67 54 6f | 6f 6c 50 61 6c 20 74 68 |n.if gTo|olPal th|
|00002a70| 65 6e 20 73 65 6e 64 20 | 53 45 54 5f 50 4f 49 4e |en send |SET_POIN|
|00002a80| 54 45 52 20 74 6f 20 77 | 64 20 33 20 6f 66 20 70 |TER to w|d 3 of p|
|00002a90| 72 6f 6a 20 67 41 70 70 | 6c 0d 65 6c 73 65 20 53 |roj gApp|l.else S|
|00002aa0| 45 54 5f 54 4f 4f 4c 20 | 22 70 6f 69 6e 74 65 72 |ET_TOOL |"pointer|
|00002ab0| 22 2c 66 61 6c 73 65 0d | 65 6e 64 20 69 66 0d 73 |",false.|end if.s|
|00002ac0| 65 74 20 73 65 6c 65 63 | 74 65 64 20 6f 66 20 74 |et selec|ted of t|
|00002ad0| 68 65 20 74 61 72 67 65 | 74 20 74 6f 20 74 72 75 |he targe|t to tru|
|00002ae0| 65 0d 70 75 74 20 6c 6f | 6e 67 20 69 64 20 6f 66 |e.put lo|ng id of|
|00002af0| 20 74 68 65 20 74 61 72 | 67 65 74 20 69 6e 74 6f | the tar|get into|
|00002b00| 20 67 53 65 6c 65 63 74 | 65 64 0d 73 65 74 20 6c | gSelect|ed.set l|
|00002b10| 6f 63 6b 4d 65 6e 75 73 | 20 74 6f 20 74 72 75 65 |ockMenus| to true|
|00002b20| 0d 44 49 53 5f 4d 45 4e | 55 20 30 2c 35 2c 66 61 |.DIS_MEN|U 0,5,fa|
|00002b30| 6c 73 65 0d 44 49 53 5f | 4d 45 4e 55 20 39 2c 35 |lse.DIS_|MENU 9,5|
|00002b40| 2c 6e 6f 74 20 67 53 6b | 69 6c 6c 20 6f 72 20 67 |,not gSk|ill or g|
|00002b50| 4f 62 6a 50 61 6c 0d 73 | 65 74 20 6c 6f 63 6b 4d |ObjPal.s|et lockM|
|00002b60| 65 6e 75 73 20 74 6f 20 | 66 61 6c 73 65 0d 65 6c |enus to |false.el|
|00002b70| 73 65 0d 69 66 20 6f 70 | 74 69 6f 6e 4b 65 79 28 |se.if op|tionKey(|
|00002b80| 29 3d 75 70 20 74 68 65 | 6e 0d 69 66 20 77 6f 72 |)=up the|n.if wor|
|00002b90| 64 20 31 20 6f 66 20 67 | 54 6f 6f 6c 20 3d 20 22 |d 1 of g|Tool = "|
|00002ba0| 66 69 65 6c 64 22 20 74 | 68 65 6e 20 0d 73 65 6c |field" t|hen .sel|
|00002bb0| 65 63 74 20 62 65 66 6f | 72 65 20 74 65 78 74 20 |ect befo|re text |
|00002bc0| 6f 66 20 74 68 65 20 74 | 61 72 67 65 74 0d 70 75 |of the t|arget.pu|
|00002bd0| 74 20 74 72 75 65 20 69 | 6e 74 6f 20 67 54 72 75 |t true i|nto gTru|
|00002be0| 45 64 69 74 0d 65 6c 73 | 65 0d 69 66 20 67 54 6f |Edit.els|e.if gTo|
|00002bf0| 6f 6c 50 61 6c 20 74 68 | 65 6e 20 73 65 6e 64 20 |olPal th|en send |
|00002c00| 53 45 54 5f 50 4f 49 4e | 54 45 52 20 74 6f 20 77 |SET_POIN|TER to w|
|00002c10| 64 20 33 20 6f 66 20 70 | 72 6f 6a 20 67 41 70 70 |d 3 of p|roj gApp|
|00002c20| 6c 0d 65 6c 73 65 20 53 | 45 54 5f 54 4f 4f 4c 20 |l.else S|ET_TOOL |
|00002c30| 22 70 6f 69 6e 74 65 72 | 22 2c 66 61 6c 73 65 0d |"pointer|",false.|
|00002c40| 65 6e 64 20 69 66 0d 65 | 6e 64 20 69 66 0d 69 66 |end if.e|nd if.if|
|00002c50| 20 77 6f 72 64 20 31 20 | 6f 66 20 67 54 6f 6f 6c | word 1 |of gTool|
|00002c60| 20 ad 20 22 66 69 65 6c | 64 22 20 74 68 65 6e 20 | . "fiel|d" then |
|00002c70| 73 65 74 20 73 65 6c 65 | 63 74 65 64 20 6f 66 20 |set sele|cted of |
|00002c80| 74 68 65 20 74 61 72 67 | 65 74 20 74 6f 20 74 72 |the targ|et to tr|
|00002c90| 75 65 0d 70 75 74 20 6c | 6f 6e 67 20 69 64 20 6f |ue.put l|ong id o|
|00002ca0| 66 20 74 68 65 20 74 61 | 72 67 65 74 20 69 6e 74 |f the ta|rget int|
|00002cb0| 6f 20 67 53 65 6c 65 63 | 74 65 64 0d 73 65 74 20 |o gSelec|ted.set |
|00002cc0| 6c 6f 63 6b 4d 65 6e 75 | 73 20 74 6f 20 74 72 75 |lockMenu|s to tru|
|00002cd0| 65 0d 44 49 53 5f 4d 45 | 4e 55 20 30 2c 35 2c 66 |e.DIS_ME|NU 0,5,f|
|00002ce0| 61 6c 73 65 0d 44 49 53 | 5f 4d 45 4e 55 20 39 2c |alse.DIS|_MENU 9,|
|00002cf0| 35 2c 6e 6f 74 20 67 53 | 6b 69 6c 6c 20 6f 72 20 |5,not gS|kill or |
|00002d00| 67 4f 62 6a 50 61 6c 0d | 73 65 74 20 6c 6f 63 6b |gObjPal.|set lock|
|00002d10| 4d 65 6e 75 73 20 74 6f | 20 66 61 6c 73 65 0d 65 |Menus to| false.e|
|00002d20| 6e 64 20 69 66 0d 65 6e | 64 20 53 45 4c 45 43 54 |nd if.en|d SELECT|
|00002d30| 5f 4e 45 57 5f 4f 42 4a | 0d 0d 6f 6e 20 4f 42 4a |_NEW_OBJ|..on OBJ|
|00002d40| 5f 44 45 4c 45 54 45 0d | 67 6c 6f 62 61 6c 20 67 |_DELETE.|global g|
|00002d50| 41 70 70 6c 2c 67 4f 62 | 6a 49 6e 66 6f 2c 67 4f |Appl,gOb|jInfo,gO|
|00002d60| 62 6a 50 61 6c 0d 69 66 | 20 22 a5 a5 a5 a5 22 20 |bjPal.if| "...." |
|00002d70| 69 73 20 69 6e 20 73 63 | 72 69 70 74 20 6f 66 20 |is in sc|ript of |
|00002d80| 74 68 65 20 74 61 72 67 | 65 74 20 74 68 65 6e 0d |the targ|et then.|
|00002d90| 62 65 65 70 0d 65 78 69 | 74 20 74 6f 20 53 75 70 |beep.exi|t to Sup|
|00002da0| 65 72 63 61 72 64 0d 65 | 6e 64 20 69 66 0d 69 66 |ercard.e|nd if.if|
|00002db0| 20 22 a5 a5 68 79 70 a5 | a5 22 20 69 73 20 69 6e | "..hyp.|." is in|
|00002dc0| 20 73 63 72 69 70 74 20 | 6f 66 20 74 68 65 20 74 | script |of the t|
|00002dd0| 61 72 67 65 74 20 74 68 | 65 6e 0d 61 6e 73 77 65 |arget th|en.answe|
|00002de0| 72 20 22 49 66 20 79 6f | 75 20 64 65 6c 65 74 65 |r "If yo|u delete|
|00002df0| 20 74 68 69 73 20 66 69 | 65 6c 64 20 61 6c 6c 20 | this fi|eld all |
|00002e00| 48 6f 74 20 4c 69 6e 6b | 73 20 69 6e 20 74 68 69 |Hot Link|s in thi|
|00002e10| 73 20 66 69 65 6c 64 20 | 61 6e 64 20 6f 62 6a 65 |s field |and obje|
|00002e20| 63 74 73 20 6c 69 6e 6b | 65 64 20 74 6f 20 74 68 |cts link|ed to th|
|00002e30| 65 6d 20 77 69 6c 6c 20 | 62 65 20 6c 6f 73 74 2e |em will |be lost.|
|00002e40| 22 20 77 69 74 68 20 22 | 44 65 6c 65 74 65 22 20 |" with "|Delete" |
|00002e50| 6f 72 20 22 43 61 6e 63 | 65 6c 22 0d 69 66 20 69 |or "Canc|el".if i|
|00002e60| 74 20 3d 20 22 44 65 6c | 65 74 65 22 20 74 68 65 |t = "Del|ete" the|
|00002e70| 6e 20 0d 44 45 4c 5f 48 | 4f 54 5f 4c 49 4e 4b 53 |n .DEL_H|OT_LINKS|
|00002e80| 20 74 68 65 20 69 64 20 | 6f 66 20 74 68 65 20 74 | the id |of the t|
|00002e90| 61 72 67 65 74 0d 73 65 | 74 20 74 68 65 20 73 63 |arget.se|t the sc|
|00002ea0| 72 69 70 74 20 6f 66 20 | 74 68 65 20 74 61 72 67 |ript of |the targ|
|00002eb0| 65 74 20 74 6f 20 65 6d | 70 74 79 0d 64 65 6c 65 |et to em|pty.dele|
|00002ec0| 74 65 20 74 68 65 20 74 | 61 72 67 65 74 0d 65 6c |te the t|arget.el|
|00002ed0| 73 65 20 65 78 69 74 20 | 74 6f 20 53 75 70 65 72 |se exit |to Super|
|00002ee0| 63 61 72 64 0d 65 6e 64 | 20 69 66 0d 72 65 70 65 |card.end| if.repe|
|00002ef0| 61 74 20 77 69 74 68 20 | 69 20 3d 20 31 20 74 6f |at with |i = 1 to|
|00002f00| 20 6e 75 6d 20 6f 66 20 | 6c 69 6e 65 73 20 69 6e | num of |lines in|
|00002f10| 20 66 6c 64 20 22 a5 68 | 79 70 65 72 74 65 78 74 | fld ".h|ypertext|
|00002f20| 22 0d 70 75 74 20 35 20 | 69 6e 74 6f 20 6a 0d 72 |".put 5 |into j.r|
|00002f30| 65 70 65 61 74 20 77 68 | 69 6c 65 20 6a 20 3c 3d |epeat wh|ile j <=|
|00002f40| 20 74 68 65 20 6e 75 6d | 20 6f 66 20 69 74 65 6d | the num| of item|
|00002f50| 73 20 69 6e 20 6c 69 6e | 65 20 69 20 6f 66 20 66 |s in lin|e i of f|
|00002f60| 6c 64 20 22 a5 68 79 70 | 65 72 74 65 78 74 22 0d |ld ".hyp|ertext".|
|00002f70| 70 75 74 20 69 74 65 6d | 20 6a 20 6f 66 20 6c 69 |put item| j of li|
|00002f80| 6e 65 20 69 20 6f 66 20 | 66 6c 64 20 22 a5 68 79 |ne i of |fld ".hy|
|00002f90| 70 65 72 74 65 78 74 22 | 20 69 6e 74 6f 20 64 65 |pertext"| into de|
|00002fa0| 6c 49 74 65 6d 0d 69 66 | 20 69 64 20 6f 66 20 64 |lItem.if| id of d|
|00002fb0| 65 6c 49 74 65 6d 20 3d | 20 69 64 20 6f 66 20 74 |elItem =| id of t|
|00002fc0| 68 65 20 74 61 72 67 65 | 74 20 74 68 65 6e c2 0d |he targe|t then..|
|00002fd0| 64 65 6c 65 74 65 20 69 | 74 65 6d 20 6a 20 6f 66 |delete i|tem j of|
|00002fe0| 20 6c 69 6e 65 20 69 20 | 6f 66 20 66 6c 64 20 22 | line i |of fld "|
|00002ff0| a5 68 79 70 65 72 74 65 | 78 74 22 0d 65 6c 73 65 |.hyperte|xt".else|
|00003000| 20 61 64 64 20 31 20 74 | 6f 20 6a 0d 65 6e 64 20 | add 1 t|o j.end |
|00003010| 72 65 70 65 61 74 0d 65 | 6e 64 20 72 65 70 65 61 |repeat.e|nd repea|
|00003020| 74 0d 69 66 20 67 4f 62 | 6a 49 6e 66 6f 3d 6c 6f |t.if gOb|jInfo=lo|
|00003030| 6e 67 20 69 64 20 6f 66 | 20 74 68 65 20 74 61 72 |ng id of| the tar|
|00003040| 67 65 74 20 61 6e 64 20 | 67 4f 62 6a 50 61 6c 20 |get and |gObjPal |
|00003050| 74 68 65 6e 20 63 6c 6f | 73 65 20 77 64 20 37 20 |then clo|se wd 7 |
|00003060| 6f 66 20 70 72 6f 6a 20 | 67 41 70 70 6c 0d 64 65 |of proj |gAppl.de|
|00003070| 6c 65 74 65 4f 62 6a 65 | 63 74 0d 65 6e 64 20 4f |leteObje|ct.end O|
|00003080| 42 4a 5f 44 45 4c 45 54 | 45 0d 0d 6f 6e 20 44 45 |BJ_DELET|E..on DE|
|00003090| 4c 5f 48 4f 54 5f 4c 49 | 4e 4b 53 20 44 65 6c 48 |L_HOT_LI|NKS DelH|
|000030a0| 6f 74 46 6c 64 49 44 0d | 70 75 74 20 31 20 69 6e |otFldID.|put 1 in|
|000030b0| 74 6f 20 69 0d 72 65 70 | 65 61 74 20 77 68 69 6c |to i.rep|eat whil|
|000030c0| 65 20 6c 69 6e 65 20 69 | 20 6f 66 20 66 6c 64 20 |e line i| of fld |
|000030d0| 22 a5 68 79 70 65 72 74 | 65 78 74 22 20 ad 20 65 |".hypert|ext" . e|
|000030e0| 6d 70 74 79 0d 69 66 20 | 49 74 65 6d 20 33 20 6f |mpty.if |Item 3 o|
|000030f0| 66 20 6c 69 6e 65 20 69 | 20 6f 66 20 66 6c 64 20 |f line i| of fld |
|00003100| 22 a5 68 79 70 65 72 74 | 65 78 74 22 20 63 6f 6e |".hypert|ext" con|
|00003110| 74 61 69 6e 73 20 44 65 | 6c 48 6f 74 46 6c 64 49 |tains De|lHotFldI|
|00003120| 44 20 74 68 65 6e 0d 72 | 65 70 65 61 74 20 77 69 |D then.r|epeat wi|
|00003130| 74 68 20 6a 20 3d 20 35 | 20 74 6f 20 6e 75 6d 62 |th j = 5| to numb|
|00003140| 65 72 20 6f 66 20 69 74 | 65 6d 73 20 69 6e 20 6c |er of it|ems in l|
|00003150| 69 6e 65 20 69 20 6f 66 | 20 66 6c 64 20 22 a5 68 |ine i of| fld ".h|
|00003160| 79 70 65 72 74 65 78 74 | 22 0d 73 65 74 20 6c 6f |ypertext|".set lo|
|00003170| 63 6b 6d 65 73 73 61 67 | 65 73 20 74 6f 20 74 72 |ckmessag|es to tr|
|00003180| 75 65 0d 64 6f 20 22 67 | 65 74 20 65 78 69 73 74 |ue.do "g|et exist|
|00003190| 73 28 22 20 26 20 69 74 | 65 6d 20 6a 20 6f 66 20 |s(" & it|em j of |
|000031a0| 6c 69 6e 65 20 69 20 6f | 66 20 66 6c 64 20 22 a5 |line i o|f fld ".|
|000031b0| 68 79 70 65 72 74 65 78 | 74 22 20 26 20 22 29 22 |hypertex|t" & ")"|
|000031c0| 0d 69 66 20 69 74 20 74 | 68 65 6e 20 64 6f 20 22 |.if it t|hen do "|
|000031d0| 64 65 6c 65 74 65 22 20 | 26 26 20 69 74 65 6d 20 |delete" |&& item |
|000031e0| 6a 20 6f 66 20 6c 69 6e | 65 20 69 20 6f 66 20 66 |j of lin|e i of f|
|000031f0| 6c 64 20 22 a5 68 79 70 | 65 72 74 65 78 74 22 0d |ld ".hyp|ertext".|
|00003200| 73 65 74 20 6c 6f 63 6b | 6d 65 73 73 61 67 65 73 |set lock|messages|
|00003210| 20 74 6f 20 66 61 6c 73 | 65 0d 65 6e 64 20 72 65 | to fals|e.end re|
|00003220| 70 65 61 74 0d 64 65 6c | 65 74 65 20 6c 69 6e 65 |peat.del|ete line|
|00003230| 20 69 20 6f 66 20 66 6c | 64 20 22 a5 68 79 70 65 | i of fl|d ".hype|
|00003240| 72 74 65 78 74 22 0d 65 | 6c 73 65 0d 61 64 64 20 |rtext".e|lse.add |
|00003250| 31 20 74 6f 20 69 0d 65 | 6e 64 20 69 66 0d 65 6e |1 to i.e|nd if.en|
|00003260| 64 20 72 65 70 65 61 74 | 0d 65 6e 64 20 44 45 4c |d repeat|.end DEL|
|00003270| 5f 48 4f 54 5f 4c 49 4e | 4b 53 0d 0d 6f 6e 20 4f |_HOT_LIN|KS..on O|
|00003280| 42 4a 5f 43 4c 49 43 4b | 0d 67 6c 6f 62 61 6c 20 |BJ_CLICK|.global |
|00003290| 67 41 70 70 6c 2c 67 53 | 65 6c 65 63 74 65 64 2c |gAppl,gS|elected,|
|000032a0| 67 54 6f 6f 6c 50 61 6c | 2c 67 4f 62 6a 50 61 6c |gToolPal|,gObjPal|
|000032b0| 2c 67 48 6f 74 50 61 6c | 2c 67 53 6b 69 6c 6c 2c |,gHotPal|,gSkill,|
|000032c0| 67 4d 65 6d 45 72 72 2c | 67 49 73 46 61 73 74 0d |gMemErr,|gIsFast.|
|000032d0| 70 75 74 20 67 53 65 6c | 65 63 74 65 64 20 69 6e |put gSel|ected in|
|000032e0| 74 6f 20 70 72 69 6f 72 | 53 65 6c 65 63 74 65 64 |to prior|Selected|
|000032f0| 0d 70 75 74 20 4f 42 4a | 5f 53 45 4c 45 43 54 45 |.put OBJ|_SELECTE|
|00003300| 44 28 29 20 69 6e 74 6f | 20 67 53 65 6c 65 63 74 |D() into| gSelect|
|00003310| 65 64 0d 70 75 74 20 28 | 67 4d 65 6d 45 72 72 20 |ed.put (|gMemErr |
|00003320| 6f 72 20 6e 75 6d 20 6f | 66 20 69 74 65 6d 73 20 |or num o|f items |
|00003330| 69 6e 20 67 53 65 6c 65 | 63 74 65 64 3d 30 29 20 |in gSele|cted=0) |
|00003340| 69 6e 74 6f 20 64 69 73 | 0d 44 49 53 5f 4d 45 4e |into dis|.DIS_MEN|
|00003350| 55 20 30 2c 35 2c 64 69 | 73 0d 69 66 20 64 69 73 |U 0,5,di|s.if dis|
|00003360| 20 74 68 65 6e 20 65 78 | 69 74 20 4f 42 4a 5f 43 | then ex|it OBJ_C|
|00003370| 4c 49 43 4b 0d 70 75 74 | 20 28 6e 75 6d 20 6f 66 |LICK.put| (num of|
|00003380| 20 69 74 65 6d 73 20 69 | 6e 20 67 53 65 6c 65 63 | items i|n gSelec|
|00003390| 74 65 64 3d 31 29 20 69 | 6e 74 6f 20 64 69 73 0d |ted=1) i|nto dis.|
|000033a0| 69 66 20 64 69 73 20 74 | 68 65 6e 0d 69 66 20 67 |if dis t|hen.if g|
|000033b0| 48 6f 74 50 61 6c 20 61 | 6e 64 20 22 a5 a5 a5 a5 |HotPal a|nd "....|
|000033c0| 22 20 69 73 20 6e 6f 74 | 20 69 6e 20 73 63 72 69 |" is not| in scri|
|000033d0| 70 74 20 6f 66 20 67 53 | 65 6c 65 63 74 65 64 20 |pt of gS|elected |
|000033e0| 74 68 65 6e 20 73 65 6e | 64 20 53 45 54 5f 48 59 |then sen|d SET_HY|
|000033f0| 50 45 52 5f 41 54 54 52 | 20 74 6f 20 77 64 20 38 |PER_ATTR| to wd 8|
|00003400| 20 6f 66 20 70 72 6f 6a | 20 67 41 70 70 6c 0d 69 | of proj| gAppl.i|
|00003410| 66 20 67 54 6f 6f 6c 50 | 61 6c 20 61 6e 64 20 67 |f gToolP|al and g|
|00003420| 49 73 46 61 73 74 20 61 | 6e 64 20 73 74 79 6c 65 |IsFast a|nd style|
|00003430| 20 6f 66 20 67 53 65 6c | 65 63 74 65 64 ad 22 62 | of gSel|ected."b|
|00003440| 69 74 6d 61 70 22 20 74 | 68 65 6e 20 73 65 6e 64 |itmap" t|hen send|
|00003450| 20 53 45 54 5f 4f 42 4a | 5f 41 54 54 52 20 74 6f | SET_OBJ|_ATTR to|
|00003460| 20 77 64 20 33 20 6f 66 | 20 70 72 6f 6a 20 67 41 | wd 3 of| proj gA|
|00003470| 70 70 6c 0d 65 6e 64 20 | 69 66 0d 69 66 20 67 49 |ppl.end |if.if gI|
|00003480| 73 46 61 73 74 20 74 68 | 65 6e 0d 73 65 74 20 6c |sFast th|en.set l|
|00003490| 6f 63 6b 4d 65 6e 75 73 | 20 74 6f 20 74 72 75 65 |ockMenus| to true|
|000034a0| 0d 44 49 53 5f 4d 45 4e | 55 20 39 2c 35 2c 6e 6f |.DIS_MEN|U 9,5,no|
|000034b0| 74 20 64 69 73 20 6f 72 | 20 6e 6f 74 20 67 53 6b |t dis or| not gSk|
|000034c0| 69 6c 6c 20 6f 72 20 67 | 4f 62 6a 50 61 6c 0d 44 |ill or g|ObjPal.D|
|000034d0| 49 53 5f 4d 45 4e 55 20 | 31 38 2c 35 2c 64 69 73 |IS_MENU |18,5,dis|
|000034e0| 0d 73 65 74 20 6c 6f 63 | 6b 4d 65 6e 75 73 20 74 |.set loc|kMenus t|
|000034f0| 6f 20 66 61 6c 73 65 0d | 69 66 20 64 69 73 20 61 |o false.|if dis a|
|00003500| 6e 64 20 77 6f 72 64 20 | 32 20 6f 66 20 67 53 65 |nd word |2 of gSe|
|00003510| 6c 65 63 74 65 64 ad 22 | 67 72 63 22 20 74 68 65 |lected."|grc" the|
|00003520| 6e 20 54 45 58 54 5f 4d | 45 4e 55 53 20 67 53 65 |n TEXT_M|ENUS gSe|
|00003530| 6c 65 63 74 65 64 0d 65 | 6e 64 20 69 66 0d 69 66 |lected.e|nd if.if|
|00003540| 20 74 68 65 20 73 74 79 | 6c 65 20 6f 66 20 67 53 | the sty|le of gS|
|00003550| 65 6c 65 63 74 65 64 20 | 3d 20 22 62 69 74 6d 61 |elected |= "bitma|
|00003560| 70 22 20 74 68 65 6e 20 | 73 61 76 65 69 74 20 22 |p" then |saveit "|
|00003570| 6e 6f 6e 65 22 2c 20 31 | 2c 20 22 74 79 70 65 20 |none", 1|, "type |
|00003580| 31 22 0d 69 66 20 22 66 | 6c 64 22 20 69 73 20 69 |1".if "f|ld" is i|
|00003590| 6e 20 67 53 65 6c 65 63 | 74 65 64 20 74 68 65 6e |n gSelec|ted then|
|000035a0| 20 20 46 4c 44 5f 43 4c | 49 43 4b 20 70 72 69 6f |  FLD_CL|ICK prio|
|000035b0| 72 53 65 6c 65 63 74 65 | 64 0d 65 6e 64 20 4f 42 |rSelecte|d.end OB|
|000035c0| 4a 5f 43 4c 49 43 4b 0d | 0d 6f 6e 20 4f 42 4a 5f |J_CLICK.|.on OBJ_|
|000035d0| 49 4e 46 4f 0d 67 6c 6f | 62 61 6c 20 67 52 75 6e |INFO.glo|bal gRun|
|000035e0| 4d 6f 64 65 2c 67 41 70 | 70 6c 2c 67 4f 62 6a 50 |Mode,gAp|pl,gObjP|
|000035f0| 61 6c 2c 67 53 6b 69 6c | 6c 2c 67 4f 62 6a 49 6e |al,gSkil|l,gObjIn|
|00003600| 66 6f 2c 67 4d 65 6d 45 | 72 72 0d 69 66 20 67 52 |fo,gMemE|rr.if gR|
|00003610| 75 6e 4d 6f 64 65 20 6f | 72 20 6e 6f 74 20 67 53 |unMode o|r not gS|
|00003620| 6b 69 6c 6c 20 74 68 65 | 6e 20 65 78 69 74 20 4f |kill the|n exit O|
|00003630| 42 4a 5f 49 4e 46 4f 0d | 73 65 74 20 63 75 72 73 |BJ_INFO.|set curs|
|00003640| 6f 72 20 74 6f 20 77 61 | 74 63 68 0d 67 65 74 20 |or to wa|tch.get |
|00003650| 73 63 72 69 70 74 20 6f | 66 20 74 68 65 20 74 61 |script o|f the ta|
|00003660| 72 67 65 74 0d 69 66 20 | 22 a5 a5 a5 a5 22 20 69 |rget.if |"...." i|
|00003670| 73 20 69 6e 20 69 74 20 | 74 68 65 6e 20 61 6e 73 |s in it |then ans|
|00003680| 77 65 72 20 67 65 74 53 | 74 72 28 31 32 30 30 30 |wer getS|tr(12000|
|00003690| 2c 31 30 35 29 0d 65 6c | 73 65 20 69 66 20 22 a5 |,105).el|se if ".|
|000036a0| a5 50 57 52 4f 42 4a a5 | a5 22 20 69 73 20 69 6e |.PWROBJ.|." is in|
|000036b0| 20 69 74 20 74 68 65 6e | 20 61 6e 73 77 65 72 20 | it then| answer |
|000036c0| 67 65 74 53 74 72 28 31 | 32 30 30 30 2c 31 32 35 |getStr(1|2000,125|
|000036d0| 29 0d 65 6c 73 65 20 69 | 66 20 22 a5 a5 68 79 70 |).else i|f "..hyp|
|000036e0| a5 a5 22 20 69 73 20 6e | 6f 74 20 69 6e 20 69 74 |.." is n|ot in it|
|000036f0| 20 74 68 65 6e 0d 2d 2d | 20 69 66 20 6e 6f 74 20 | then.--| if not |
|00003700| 67 4d 65 6d 45 72 72 20 | 74 68 65 6e 20 73 61 76 |gMemErr |then sav|
|00003710| 65 0d 69 66 20 67 4f 62 | 6a 50 61 6c 20 74 68 65 |e.if gOb|jPal the|
|00003720| 6e 20 73 65 6e 64 20 6d | 6f 75 73 65 55 70 20 74 |n send m|ouseUp t|
|00003730| 6f 20 62 67 20 62 74 6e | 20 22 4f 4b 22 20 6f 66 |o bg btn| "OK" of|
|00003740| 20 77 64 20 37 20 6f 66 | 20 70 72 6f 6a 20 67 41 | wd 7 of| proj gA|
|00003750| 70 70 6c 0d 70 75 74 20 | 6c 6f 6e 67 20 69 64 20 |ppl.put |long id |
|00003760| 6f 66 20 74 68 65 20 74 | 61 72 67 65 74 20 69 6e |of the t|arget in|
|00003770| 74 6f 20 67 4f 62 6a 49 | 6e 66 6f 0d 6f 70 65 6e |to gObjI|nfo.open|
|00003780| 20 69 6e 76 20 77 64 20 | 37 20 6f 66 20 70 72 6f | inv wd |7 of pro|
|00003790| 6a 20 67 41 70 70 6c 0d | 65 6e 64 20 69 66 0d 65 |j gAppl.|end if.e|
|000037a0| 6e 64 20 4f 42 4a 5f 49 | 4e 46 4f 0d 00 00 04 00 |nd OBJ_I|NFO.....|
|000037b0| 09 00 02 00 00 00 00 00 | 00 00 00 00 29 00 03 01 |........|....)...|
|000037c0| 8d 02 7d 4e 00 00 00 14 | 53 74 72 75 63 74 75 72 |..}N....|Structur|
|000037d0| 65 20 6f 66 20 44 4e 41 | 20 31 2e 31 00 cf 71 b0 |e of DNA| 1.1..q.|
|000037e0| 00 00 00 00 00 05 e0 f0 | 00 d5 b4 60 72 ac eb 14 |........|...`r...|
|000037f0| 70 9d ca a0 af 97 f2 6f | 00 cf 70 20 ea 3f b0 17 |p......o|..p .?..|
|00003800| 00 00 00 23 00 00 04 52 | 00 00 04 80 00 07 00 00 |...#...R|........|
|00003810| 00 00 00 2c 00 04 01 51 | 01 f4 00 00 00 00 00 00 |...,...Q|........|
|00003820| 00 00 00 00 00 fa 49 ec | 00 fa 31 30 00 fa 4a 10 |......I.|..10..J.|
|00003830| 00 fa 49 e8 00 00 00 76 | 54 79 70 65 64 20 52 65 |..I....v|Typed Re|
|00003840| 73 70 6f 6e 73 65 0d 37 | 2c 33 2c 31 2c 33 2c 34 |sponse.7|,3,1,3,4|
|00003850| 2c 31 2c 31 2c 31 2c 30 | 2c 31 0d 76 69 73 75 61 |,1,1,1,0|,1.visua|
|00003860| 6c 20 70 6c 61 69 6e 20 | 66 61 73 74 20 74 6f 20 |l plain |fast to |
|00003870| 63 64 0d 67 6f 20 70 72 | 65 76 20 63 64 0d 67 6f |cd.go pr|ev cd.go|
|00003880| 20 6e 65 78 74 20 63 64 | 0d 0d 0d 0d 0d 31 34 32 | next cd|.....142|
|00003890| 37 0d 0d 30 2c 31 0d 00 | 00 04 00 09 00 02 00 00 |7..0,1..|........|
|000038a0| 00 00 00 00 00 00 00 3c | 00 14 01 42 01 ec 00 00 |.......<|...B....|
|000038b0| 03 28 01 2c 00 02 00 00 | 00 00 00 95 00 00 01 09 |.(.,....|........|
|000038c0| 00 24 00 2c 00 a7 01 d6 | 00 00 00 00 00 ff 00 ff |.$.,....|........|
|000038d0| 00 24 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.$......|........|
|000038e0| 00 00 00 00 00 01 00 01 | 00 00 00 00 00 fa 39 50 |........|......9P|
|000038f0| 00 fa 4a 30 00 fa 31 2c | ff ff 00 00 00 00 00 00 |..J0..1,|........|
|00003900| d7 3c 40 82 01 2c 00 02 | 00 00 00 00 00 96 00 00 |.<@..,..|........|
|00003910| 49 01 00 d7 00 44 00 f2 | 01 8b 00 01 00 01 00 ff |I....D..|........|
|00003920| 00 ff 00 24 00 00 00 00 | 00 00 00 00 00 00 ff ff |...$....|........|
|00003930| ff ff ff ff ff ff 00 01 | 00 01 00 00 00 00 00 fa |........|........|
|00003940| 4a 44 00 fa 32 3c 00 fa | 32 38 ff ff 00 00 00 00 |JD..2<..|28......|
|00003950| 00 00 05 a0 40 82 00 c9 | 00 01 00 00 00 00 00 97 |....@...|........|
|00003960| 00 00 22 07 00 d9 01 9a | 00 ec 01 d7 00 01 00 01 |..".....|........|
|00003970| 00 ff 00 ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003980| ff ff ff ff ff ff ff ff | 00 01 00 01 00 00 00 00 |........|........|
|00003990| 00 fa 32 40 00 00 00 00 | 00 fa 32 48 00 00 00 0c |..2@....|..2H....|
|000039a0| 00 00 00 01 00 00 00 00 | 00 00 00 cb 00 02 00 00 |........|........|
|000039b0| 00 00 00 18 00 12 00 14 | 00 00 00 18 66 40 00 00 |........|....f@..|
|000039c0| 00 00 00 00 00 6b 00 13 | 00 0e 00 14 00 00 00 12 |.....k..|........|
|000039d0| 66 40 00 00 00 00 49 66 | 20 61 20 73 74 72 61 6e |f@....If| a stran|
|000039e0| 64 20 6f 66 20 44 4e 41 | 20 63 6f 6e 74 61 69 6e |d of DNA| contain|
|000039f0| 65 64 20 74 68 65 20 66 | 6f 6c 6c 6f 77 69 6e 67 |ed the f|ollowing|
|00003a00| 20 73 65 71 75 65 6e 63 | 65 20 6f 66 20 62 61 73 | sequenc|e of bas|
|00003a10| 65 73 3a 0d 41 54 43 47 | 47 43 41 41 54 0d 54 68 |es:.ATCG|GCAAT.Th|
|00003a20| 65 20 63 6f 6d 70 6c 65 | 6d 65 6e 74 61 72 79 20 |e comple|mentary |
|00003a30| 73 74 72 61 6e 64 20 77 | 6f 75 6c 64 20 62 65 3a |strand w|ould be:|
|00003a40| 0d 28 74 79 70 65 20 79 | 6f 75 72 20 61 6e 73 77 |.(type y|our answ|
|00003a50| 65 72 20 69 6e 20 74 68 | 65 20 73 70 61 63 65 20 |er in th|e space |
|00003a60| 70 72 6f 76 69 64 65 64 | 29 00 00 ff ff 00 03 00 |provided|).......|
|00003a70| 0c 00 00 00 00 00 00 05 | 00 00 00 09 a5 71 75 65 |........|.....que|
|00003a80| 73 74 69 6f 6e 84 00 00 | 00 1c a5 a5 a5 a5 0d 00 |stion...|........|
|00003a90| 00 04 00 09 00 02 00 00 | 00 00 00 00 00 00 00 3c |........|.......<|
|00003aa0| 00 14 01 42 01 ec 00 00 | 00 10 00 00 00 00 ff ff |...B....|........|
|00003ab0| 00 14 00 12 00 00 00 00 | 00 00 00 00 00 09 a5 72 |........|.......r|
|00003ac0| 65 73 70 6f 6e 73 65 7d | 00 00 00 c2 6f 6e 20 63 |esponse}|....on c|
|00003ad0| 6c 6f 73 65 46 69 65 6c | 64 0d 54 59 50 45 44 5f |loseFiel|d.TYPED_|
|00003ae0| 41 4e 53 57 45 52 45 44 | 0d 65 6e 64 20 63 6c 6f |ANSWERED|.end clo|
|00003af0| 73 65 46 69 65 6c 64 0d | 0d 6f 6e 20 65 6e 74 65 |seField.|.on ente|
|00003b00| 72 49 6e 46 69 65 6c 64 | 0d 42 55 54 54 4f 4e 5f |rInField|.BUTTON_|
|00003b10| 43 4c 49 43 4b 20 22 44 | 6f 6e 65 22 2c 66 61 6c |CLICK "D|one",fal|
|00003b20| 73 65 0d 65 6e 64 20 65 | 6e 74 65 72 49 6e 46 69 |se.end e|nterInFi|
|00003b30| 65 6c 64 0d 0d 6f 6e 20 | 72 65 74 75 72 6e 49 6e |eld..on |returnIn|
|00003b40| 46 69 65 6c 64 0d 42 55 | 54 54 4f 4e 5f 43 4c 49 |Field.BU|TTON_CLI|
|00003b50| 43 4b 20 22 44 6f 6e 65 | 22 2c 66 61 6c 73 65 0d |CK "Done|",false.|
|00003b60| 65 6e 64 20 72 65 74 75 | 72 6e 49 6e 46 69 65 6c |end retu|rnInFiel|
|00003b70| 64 0d a5 a5 a5 a5 0d 00 | 00 04 00 09 00 02 00 ac |d.......|........|
|00003b80| 00 00 00 00 00 00 00 29 | 00 03 01 8d 02 7d 00 00 |.......)|.....}..|
|00003b90| 00 04 44 6f 6e 65 00 00 | 00 3e 6f 6e 20 6d 6f 75 |..Done..|.>on mou|
|00003ba0| 73 65 55 70 0d 54 59 50 | 45 44 5f 44 4f 4e 45 0d |seUp.TYP|ED_DONE.|
|00003bb0| 65 6e 64 20 6d 6f 75 73 | 65 55 70 0d a5 a5 a5 a5 |end mous|eUp.....|
|00003bc0| 0d 00 00 04 00 09 00 02 | 00 24 00 00 00 00 00 00 |........|.$......|
|00003bd0| 00 3c 00 14 01 42 01 ec | 00 03 00 00 00 72 00 00 |.<...B..|.....r..|
|00003be0| 00 9b 00 00 00 19 00 00 | 54 41 47 43 43 47 54 54 |........|TAGCCGTT|
|00003bf0| 41 00 00 ff ff 00 03 00 | 09 00 00 00 00 00 00 00 |A.......|........|
|00003c00| 00 00 9c 00 00 00 19 00 | 00 6f 69 64 69 70 6f 64 |........|.oidipod|
|00003c10| 73 67 00 00 ff ff 00 03 | 00 09 00 00 00 00 00 00 |sg......|........|
|00003c20| 00 00 00 9d 00 00 00 10 | 00 00 00 00 ff ff 00 03 |........|........|
|00003c30| 00 09 00 00 00 00 00 00 | 00 00 00 9e 00 00 00 10 |........|........|
|00003c40| 00 00 00 00 ff ff 00 03 | 00 09 00 00 00 00 00 00 |........|........|
|00003c50| 00 00 00 0a a5 a5 49 44 | a5 a5 20 31 35 31 01 9d |......ID|.. 151..|
|00003c60| 01 bd 01 9e 01 be 00 24 | 01 be 00 25 01 09 d6 a0 |.......$|...%....|
|00003c70| 00 00 00 00 00 22 91 e0 | 01 2c 6d 40 01 be 02 72 |....."..|.,m@...r|
|00003c80| 00 00 00 05 00 00 22 0a | 00 00 22 40 00 04 00 06 |......".|.."@....|
|00003c90| 00 00 00 0f 00 00 00 02 | 00 00 00 01 00 00 00 69 |........|.......i|
|00003ca0| 00 00 00 00 fb 76 fb 9b | fc bb fc 95 00 78 00 64 |.....v..|.....x.d|
|00003cb0| 01 2c 01 5e 00 fa 56 08 | 00 fa 56 ac 00 01 00 02 |.,.^..V.|..V.....|
|00003cc0| 00 00 00 09 00 00 21 be | 2d 2d 20 76 65 72 73 69 |......!.|-- versi|
|00003cd0| 6f 6e 20 32 2e 30 2e 31 | 0d 6f 6e 20 6f 70 65 6e |on 2.0.1|.on open|
|00003ce0| 50 72 6f 6a 65 63 74 0d | 67 6c 6f 62 61 6c 20 67 |Project.|global g|
|00003cf0| 4f 70 65 6e 0d 70 75 74 | 20 74 72 75 65 20 69 6e |Open.put| true in|
|00003d00| 74 6f 20 67 4f 70 65 6e | 0d 6f 70 65 6e 20 69 6e |to gOpen|.open in|
|00003d10| 76 20 77 64 20 31 20 6f | 66 20 74 68 69 73 20 70 |v wd 1 o|f this p|
|00003d20| 72 6f 6a 0d 65 6e 64 20 | 6f 70 65 6e 50 72 6f 6a |roj.end |openProj|
|00003d30| 65 63 74 0d 0d 6f 6e 20 | 6f 70 65 6e 57 69 6e 64 |ect..on |openWind|
|00003d40| 6f 77 0d 67 6c 6f 62 61 | 6c 20 67 4f 70 65 6e 2c |ow.globa|l gOpen,|
|00003d50| 67 4c 69 6e 6b 53 72 63 | 0d 70 75 74 20 22 22 20 |gLinkSrc|.put "" |
|00003d60| 69 6e 74 6f 20 67 4c 69 | 6e 6b 53 72 63 0d 73 65 |into gLi|nkSrc.se|
|00003d70| 74 20 63 6c 6f 73 65 42 | 6f 78 20 6f 66 20 6d 65 |t closeB|ox of me|
|00003d80| 20 74 6f 20 74 72 75 65 | 0d 73 65 74 20 6e 61 6d | to true|.set nam|
|00003d90| 65 20 6f 66 20 62 67 20 | 62 74 6e 20 31 20 74 6f |e of bg |btn 1 to|
|00003da0| 20 54 52 55 4e 43 41 54 | 45 28 73 68 6f 72 74 20 | TRUNCAT|E(short |
|00003db0| 6e 61 6d 65 20 6f 66 20 | 74 68 69 73 20 70 72 6f |name of |this pro|
|00003dc0| 6a 2c 33 32 29 0d 73 65 | 74 20 6c 6f 63 20 6f 66 |j,32).se|t loc of|
|00003dd0| 20 6d 65 20 74 6f 20 2d | 31 30 30 30 2c 2d 31 30 | me to -|1000,-10|
|00003de0| 30 30 0d 69 66 20 6e 6f | 74 20 76 69 73 20 6f 66 |00.if no|t vis of|
|00003df0| 20 77 64 20 32 20 6f 66 | 20 74 68 69 73 20 70 72 | wd 2 of| this pr|
|00003e00| 6f 6a 20 74 68 65 6e 0d | 6c 6f 63 6b 20 6d 65 73 |oj then.|lock mes|
|00003e10| 73 61 67 65 73 0d 6f 70 | 65 6e 20 69 6e 76 20 77 |sages.op|en inv w|
|00003e20| 64 20 32 20 6f 66 20 74 | 68 69 73 20 70 72 6f 6a |d 2 of t|his proj|
|00003e30| 0d 73 65 6e 64 20 6f 70 | 65 6e 57 69 6e 64 6f 77 |.send op|enWindow|
|00003e40| 20 74 6f 20 77 64 20 32 | 20 6f 66 20 74 68 69 73 | to wd 2| of this|
|00003e50| 20 70 72 6f 6a 0d 65 6e | 64 20 69 66 0d 70 75 74 | proj.en|d if.put|
|00003e60| 20 66 61 6c 73 65 20 69 | 6e 74 6f 20 67 4f 70 65 | false i|nto gOpe|
|00003e70| 6e 0d 65 6e 64 20 6f 70 | 65 6e 57 69 6e 64 6f 77 |n.end op|enWindow|
|00003e80| 0d 0d 6f 6e 20 63 6c 6f | 73 65 57 69 6e 64 6f 77 |..on clo|seWindow|
|00003e90| 0d 67 6c 6f 62 61 6c 20 | 67 53 63 72 65 65 6e 50 |.global |gScreenP|
|00003ea0| 61 6c 0d 70 75 74 20 66 | 61 6c 73 65 20 69 6e 74 |al.put f|alse int|
|00003eb0| 6f 20 67 53 63 72 65 65 | 6e 50 61 6c 0d 48 49 44 |o gScree|nPal.HID|
|00003ec0| 45 5f 53 43 52 45 45 4e | 5f 4c 49 53 54 0d 65 6e |E_SCREEN|_LIST.en|
|00003ed0| 64 20 63 6c 6f 73 65 57 | 69 6e 64 6f 77 0d 0d 6f |d closeW|indow..o|
|00003ee0| 6e 20 48 49 44 45 5f 53 | 43 52 45 45 4e 5f 4c 49 |n HIDE_S|CREEN_LI|
|00003ef0| 53 54 0d 67 6c 6f 62 61 | 6c 20 67 44 6f 63 2c 67 |ST.globa|l gDoc,g|
|00003f00| 52 75 6e 4d 6f 64 65 0d | 67 65 74 20 22 2d 31 30 |RunMode.|get "-10|
|00003f10| 30 30 2c 2d 31 30 30 30 | 22 0d 69 66 20 6c 6f 63 |00,-1000|".if loc|
|00003f20| 20 6f 66 20 6d 65 ad 69 | 74 20 74 68 65 6e 20 70 | of me.i|t then p|
|00003f30| 75 74 20 6c 6f 63 20 6f | 66 20 6d 65 20 69 6e 74 |ut loc o|f me int|
|00003f40| 6f 20 6c 69 6e 65 20 31 | 20 6f 66 20 63 64 20 66 |o line 1| of cd f|
|00003f50| 6c 64 20 31 20 6f 66 20 | 63 64 20 31 0d 73 65 74 |ld 1 of |cd 1.set|
|00003f60| 20 6c 6f 63 20 6f 66 20 | 6d 65 20 74 6f 20 69 74 | loc of |me to it|
|00003f70| 0d 69 66 20 6e 6f 74 20 | 67 52 75 6e 4d 6f 64 65 |.if not |gRunMode|
|00003f80| 20 74 68 65 6e 20 4d 45 | 4e 55 5f 4d 41 52 4b 20 | then ME|NU_MARK |
|00003f90| 37 2c 38 2c 66 61 6c 73 | 65 0d 65 6e 64 20 48 49 |7,8,fals|e.end HI|
|00003fa0| 44 45 5f 53 43 52 45 45 | 4e 5f 4c 49 53 54 0d 0d |DE_SCREE|N_LIST..|
|00003fb0| 6f 6e 20 64 72 61 67 57 | 69 6e 64 6f 77 0d 70 75 |on dragW|indow.pu|
|00003fc0| 74 20 6c 6f 63 20 6f 66 | 20 6d 65 20 69 6e 74 6f |t loc of| me into|
|00003fd0| 20 6c 69 6e 65 20 31 20 | 6f 66 20 63 64 20 66 6c | line 1 |of cd fl|
|00003fe0| 64 20 31 20 6f 66 20 63 | 64 20 31 0d 65 6e 64 20 |d 1 of c|d 1.end |
|00003ff0| 64 72 61 67 57 69 6e 64 | 6f 77 0d 0d 6f 6e 20 6f |dragWind|ow..on o|
|00004000| 70 65 6e 43 61 72 64 0d | 67 6c 6f 62 61 6c 20 67 |penCard.|global g|
|00004010| 44 6f 63 2c 67 53 63 72 | 65 65 6e 4e 75 6d 2c 67 |Doc,gScr|eenNum,g|
|00004020| 43 75 72 72 53 63 72 65 | 65 6e 73 2c 67 4c 69 6e |CurrScre|ens,gLin|
|00004030| 6b 53 72 63 2c 67 52 65 | 63 65 69 76 65 64 4f 70 |kSrc,gRe|ceivedOp|
|00004040| 65 6e 0d 70 75 74 20 74 | 72 75 65 20 69 6e 74 6f |en.put t|rue into|
|00004050| 20 67 52 65 63 65 69 76 | 65 64 4f 70 65 6e 0d 73 | gReceiv|edOpen.s|
|00004060| 65 74 20 6e 61 6d 65 20 | 6f 66 20 62 67 20 62 74 |et name |of bg bt|
|00004070| 6e 20 33 20 74 6f 20 73 | 68 6f 72 74 20 6e 61 6d |n 3 to s|hort nam|
|00004080| 65 20 6f 66 20 74 68 69 | 73 20 63 64 0d 67 65 74 |e of thi|s cd.get|
|00004090| 20 6e 75 6d 20 6f 66 20 | 63 64 73 20 6f 66 20 77 | num of |cds of w|
|000040a0| 64 20 32 20 6f 66 20 70 | 72 6f 6a 20 67 44 6f 63 |d 2 of p|roj gDoc|
|000040b0| 0d 70 75 74 20 22 53 63 | 72 65 65 6e 22 20 26 26 |.put "Sc|reen" &&|
|000040c0| 67 53 63 72 65 65 6e 4e | 75 6d 26 26 20 22 6f 66 |gScreenN|um&& "of|
|000040d0| 22 20 26 26 20 69 74 20 | 69 6e 74 6f 20 62 67 20 |" && it |into bg |
|000040e0| 66 6c 64 20 22 4e 75 6d | 62 65 72 22 0d 69 66 20 |fld "Num|ber".if |
|000040f0| 6e 75 6d 20 6f 66 20 74 | 68 69 73 20 63 64 3d 31 |num of t|his cd=1|
|00004100| 20 74 68 65 6e 0d 73 65 | 74 20 68 69 6c 69 74 65 | then.se|t hilite|
|00004110| 64 4c 69 6e 65 73 20 6f | 66 20 62 67 20 66 6c 64 |dLines o|f bg fld|
|00004120| 20 31 20 74 6f 20 67 53 | 63 72 65 65 6e 4e 75 6d | 1 to gS|creenNum|
|00004130| 0d 69 66 20 67 53 63 72 | 65 65 6e 4e 75 6d 3c 31 |.if gScr|eenNum<1|
|00004140| 39 20 74 68 65 6e 20 73 | 65 74 20 73 63 72 6f 6c |9 then s|et scrol|
|00004150| 6c 20 6f 66 20 62 67 20 | 66 6c 64 20 31 20 74 6f |l of bg |fld 1 to|
|00004160| 20 30 0d 65 6c 73 65 20 | 73 65 74 20 73 63 72 6f | 0.else |set scro|
|00004170| 6c 6c 20 6f 66 20 62 67 | 20 66 6c 64 20 31 20 74 |ll of bg| fld 1 t|
|00004180| 6f 20 67 53 63 72 65 65 | 6e 4e 75 6d 0d 70 75 74 |o gScree|nNum.put|
|00004190| 20 67 53 63 72 65 65 6e | 4e 75 6d 20 69 6e 74 6f | gScreen|Num into|
|000041a0| 20 67 43 75 72 72 53 63 | 72 65 65 6e 73 0d 70 75 | gCurrSc|reens.pu|
|000041b0| 74 20 22 22 20 69 6e 74 | 6f 20 67 4c 69 6e 6b 53 |t "" int|o gLinkS|
|000041c0| 72 63 0d 65 6c 73 65 20 | 69 66 20 6e 75 6d 20 6f |rc.else |if num o|
|000041d0| 66 20 74 68 69 73 20 63 | 64 3d 32 20 61 6e 64 20 |f this c|d=2 and |
|000041e0| 67 4c 69 6e 6b 53 72 63 | 3d 22 22 20 74 68 65 6e |gLinkSrc|="" then|
|000041f0| 20 53 43 52 45 45 4e 5f | 50 52 45 46 53 0d 65 6e | SCREEN_|PREFS.en|
|00004200| 64 20 6f 70 65 6e 43 61 | 72 64 0d 0d 6f 6e 20 53 |d openCa|rd..on S|
|00004210| 43 52 45 45 4e 5f 50 52 | 45 46 53 0d 67 6c 6f 62 |CREEN_PR|EFS.glob|
|00004220| 61 6c 20 67 44 6f 63 2c | 67 53 63 72 65 65 6e 4e |al gDoc,|gScreenN|
|00004230| 75 6d 2c 67 53 63 72 65 | 65 6e 2c 67 43 75 72 72 |um,gScre|en,gCurr|
|00004240| 53 63 72 65 65 6e 73 2c | 67 43 75 72 72 42 67 2c |Screens,|gCurrBg,|
|00004250| 67 51 75 69 7a 52 65 76 | 69 73 69 74 0d 67 6c 6f |gQuizRev|isit.glo|
|00004260| 62 61 6c 20 67 4e 61 76 | 50 72 65 76 2c 67 4e 61 |bal gNav|Prev,gNa|
|00004270| 76 4e 65 78 74 2c 67 4e | 61 76 52 74 6e 2c 67 41 |vNext,gN|avRtn,gA|
|00004280| 75 74 6f 45 76 65 6e 74 | 31 2c 67 41 75 74 6f 45 |utoEvent|1,gAutoE|
|00004290| 76 65 6e 74 32 0d 73 65 | 74 20 63 75 72 73 6f 72 |vent2.se|t cursor|
|000042a0| 20 74 6f 20 77 61 74 63 | 68 0d 6c 6f 63 6b 20 73 | to watc|h.lock s|
|000042b0| 63 72 65 65 6e 0d 69 66 | 20 6e 75 6d 20 6f 66 20 |creen.if| num of |
|000042c0| 69 74 65 6d 73 20 69 6e | 20 67 43 75 72 72 53 63 |items in| gCurrSc|
|000042d0| 72 65 65 6e 73 b2 31 20 | 74 68 65 6e 0d 70 75 74 |reens.1 |then.put|
|000042e0| 20 67 53 63 72 65 65 6e | 4e 75 6d 20 69 6e 74 6f | gScreen|Num into|
|000042f0| 20 67 43 75 72 72 53 63 | 72 65 65 6e 73 0d 73 65 | gCurrSc|reens.se|
|00004300| 74 20 6c 6f 63 6b 74 65 | 78 74 20 6f 66 20 63 64 |t lockte|xt of cd|
|00004310| 20 66 6c 64 20 22 4e 61 | 6d 65 22 20 74 6f 20 66 | fld "Na|me" to f|
|00004320| 61 6c 73 65 0d 70 75 74 | 20 67 53 63 72 65 65 6e |alse.put| gScreen|
|00004330| 20 69 6e 74 6f 20 63 64 | 20 66 6c 64 20 22 4e 61 | into cd| fld "Na|
|00004340| 6d 65 22 0d 70 75 74 20 | 67 43 75 72 72 42 67 20 |me".put |gCurrBg |
|00004350| 69 6e 74 6f 20 63 64 20 | 66 6c 64 20 38 0d 67 65 |into cd |fld 8.ge|
|00004360| 74 20 73 63 72 69 70 74 | 20 6f 66 20 63 64 20 67 |t script| of cd g|
|00004370| 53 63 72 65 65 6e 4e 75 | 6d 20 6f 66 20 77 64 20 |ScreenNu|m of wd |
|00004380| 32 20 6f 66 20 70 72 6f | 6a 20 67 44 6f 63 0d 70 |2 of pro|j gDoc.p|
|00004390| 75 74 20 6c 69 6e 65 20 | 32 20 6f 66 20 69 74 20 |ut line |2 of it |
|000043a0| 69 6e 74 6f 20 62 67 20 | 66 6c 64 20 33 0d 69 66 |into bg |fld 3.if|
|000043b0| 20 62 67 20 66 6c 64 20 | 33 3d 22 22 20 74 68 65 | bg fld |3="" the|
|000043c0| 6e 20 70 75 74 20 43 41 | 52 44 5f 44 45 46 41 55 |n put CA|RD_DEFAU|
|000043d0| 4c 54 53 28 29 20 69 6e | 74 6f 20 62 67 20 66 6c |LTS() in|to bg fl|
|000043e0| 64 20 33 0d 70 75 74 20 | 6c 69 6e 65 20 31 20 6f |d 3.put |line 1 o|
|000043f0| 66 20 69 74 20 69 6e 74 | 6f 20 63 64 20 66 6c 64 |f it int|o cd fld|
|00004400| 20 22 54 65 6d 70 6c 61 | 74 65 22 0d 73 65 74 20 | "Templa|te".set |
|00004410| 64 69 73 61 62 6c 65 64 | 20 6f 66 20 62 74 6e 20 |disabled| of btn |
|00004420| 31 37 20 74 6f 20 6e 6f | 74 20 49 53 5f 51 55 49 |17 to no|t IS_QUI|
|00004430| 5a 28 29 0d 67 65 74 20 | 69 74 65 6d 20 31 30 20 |Z().get |item 10 |
|00004440| 6f 66 20 62 67 20 66 6c | 64 20 33 0d 69 66 20 69 |of bg fl|d 3.if i|
|00004450| 74 3d 22 22 20 74 68 65 | 6e 20 70 75 74 20 31 20 |t="" the|n put 1 |
|00004460| 69 6e 74 6f 20 69 74 0d | 70 75 74 20 69 74 20 69 |into it.|put it i|
|00004470| 6e 74 6f 20 69 74 65 6d | 20 31 30 20 6f 66 20 62 |nto item| 10 of b|
|00004480| 67 20 66 6c 64 20 33 0d | 73 65 74 20 6e 61 6d 65 |g fld 3.|set name|
|00004490| 20 6f 66 20 62 74 6e 20 | 31 37 20 74 6f 20 47 45 | of btn |17 to GE|
|000044a0| 54 5f 4e 41 56 28 69 74 | 29 0d 53 48 4f 57 5f 45 |T_NAV(it|).SHOW_E|
|000044b0| 56 45 4e 54 20 67 41 75 | 74 6f 45 76 65 6e 74 31 |VENT gAu|toEvent1|
|000044c0| 2c 33 0d 53 48 4f 57 5f | 45 56 45 4e 54 20 67 41 |,3.SHOW_|EVENT gA|
|000044d0| 75 74 6f 45 76 65 6e 74 | 32 2c 34 0d 65 6c 73 65 |utoEvent|2,4.else|
|000044e0| 0d 64 69 73 61 62 6c 65 | 20 62 74 6e 20 31 37 0d |.disable| btn 17.|
|000044f0| 73 65 74 20 6c 6f 63 6b | 74 65 78 74 20 6f 66 20 |set lock|text of |
|00004500| 63 64 20 66 6c 64 20 22 | 4e 61 6d 65 22 20 74 6f |cd fld "|Name" to|
|00004510| 20 74 72 75 65 0d 72 65 | 70 65 61 74 20 77 69 74 | true.re|peat wit|
|00004520| 68 20 69 3d 31 20 74 6f | 20 34 0d 70 75 74 20 22 |h i=1 to| 4.put "|
|00004530| 2d 2d 2d 22 20 69 6e 74 | 6f 20 63 64 20 66 6c 64 |---" int|o cd fld|
|00004540| 20 69 0d 65 6e 64 20 72 | 65 70 65 61 74 0d 70 75 | i.end r|epeat.pu|
|00004550| 74 20 22 2d 2d 2d 22 20 | 69 6e 74 6f 20 63 64 20 |t "---" |into cd |
|00004560| 66 6c 64 20 38 0d 70 75 | 74 20 6c 69 6e 65 20 32 |fld 8.pu|t line 2|
|00004570| 20 6f 66 20 73 63 72 69 | 70 74 20 6f 66 20 63 64 | of scri|pt of cd|
|00004580| 20 28 69 74 65 6d 20 31 | 20 6f 66 20 67 43 75 72 | (item 1| of gCur|
|00004590| 72 53 63 72 65 65 6e 73 | 29 20 6f 66 20 77 64 20 |rScreens|) of wd |
|000045a0| 32 20 6f 66 20 70 72 6f | 6a 20 67 44 6f 63 20 69 |2 of pro|j gDoc i|
|000045b0| 6e 74 6f 20 62 67 20 66 | 6c 64 20 33 0d 69 66 20 |nto bg f|ld 3.if |
|000045c0| 62 67 20 66 6c 64 20 33 | 3d 22 22 20 74 68 65 6e |bg fld 3|="" then|
|000045d0| 20 70 75 74 20 43 41 52 | 44 5f 44 45 46 41 55 4c | put CAR|D_DEFAUL|
|000045e0| 54 53 28 29 20 69 6e 74 | 6f 20 62 67 20 66 6c 64 |TS() int|o bg fld|
|000045f0| 20 33 0d 72 65 70 65 61 | 74 20 77 69 74 68 20 6e | 3.repea|t with n|
|00004600| 75 6d 53 63 72 65 65 6e | 73 3d 31 20 74 6f 20 6e |umScreen|s=1 to n|
|00004610| 75 6d 20 6f 66 20 69 74 | 65 6d 73 20 69 6e 20 67 |um of it|ems in g|
|00004620| 43 75 72 72 53 63 72 65 | 65 6e 73 0d 73 65 74 20 |CurrScre|ens.set |
|00004630| 63 75 72 73 6f 72 20 74 | 6f 20 62 75 73 79 0d 67 |cursor t|o busy.g|
|00004640| 65 74 20 6c 69 6e 65 20 | 32 20 6f 66 20 73 63 72 |et line |2 of scr|
|00004650| 69 70 74 20 6f 66 20 63 | 64 20 28 69 74 65 6d 20 |ipt of c|d (item |
|00004660| 6e 75 6d 53 63 72 65 65 | 6e 73 20 6f 66 20 67 43 |numScree|ns of gC|
|00004670| 75 72 72 53 63 72 65 65 | 6e 73 29 20 6f 66 20 77 |urrScree|ns) of w|
|00004680| 64 20 32 20 6f 66 20 70 | 72 6f 6a 20 67 44 6f 63 |d 2 of p|roj gDoc|
|00004690| 0d 69 66 20 69 74 3d 22 | 22 20 74 68 65 6e 20 70 |.if it="|" then p|
|000046a0| 75 74 20 43 41 52 44 5f | 44 45 46 41 55 4c 54 53 |ut CARD_|DEFAULTS|
|000046b0| 28 29 20 69 6e 74 6f 20 | 69 74 0d 72 65 70 65 61 |() into |it.repea|
|000046c0| 74 20 77 69 74 68 20 69 | 3d 31 20 74 6f 20 38 0d |t with i|=1 to 8.|
|000046d0| 69 66 20 69 74 65 6d 20 | 69 20 6f 66 20 69 74 ad |if item |i of it.|
|000046e0| 69 74 65 6d 20 69 20 6f | 66 20 62 67 20 66 6c 64 |item i o|f bg fld|
|000046f0| 20 33 20 74 68 65 6e 20 | 70 75 74 20 30 20 69 6e | 3 then |put 0 in|
|00004700| 74 6f 20 69 74 65 6d 20 | 69 20 6f 66 20 62 67 20 |to item |i of bg |
|00004710| 66 6c 64 20 33 0d 65 6e | 64 20 72 65 70 65 61 74 |fld 3.en|d repeat|
|00004720| 0d 65 6e 64 20 72 65 70 | 65 61 74 0d 65 6e 64 20 |.end rep|eat.end |
|00004730| 69 66 0d 67 65 74 20 62 | 67 20 66 6c 64 20 33 0d |if.get b|g fld 3.|
|00004740| 70 75 74 20 69 74 65 6d | 20 39 20 6f 66 20 69 74 |put item| 9 of it|
|00004750| 20 69 6e 74 6f 20 63 64 | 20 66 6c 64 20 22 44 65 | into cd| fld "De|
|00004760| 6c 61 79 22 0d 72 65 70 | 65 61 74 20 77 69 74 68 |lay".rep|eat with|
|00004770| 20 69 3d 31 20 74 6f 20 | 33 0d 73 65 74 20 6e 61 | i=1 to |3.set na|
|00004780| 6d 65 20 6f 66 20 62 74 | 6e 20 69 20 74 6f 20 4d |me of bt|n i to M|
|00004790| 45 4e 55 5f 49 54 45 4d | 28 69 74 65 6d 20 69 20 |ENU_ITEM|(item i |
|000047a0| 6f 66 20 69 74 2c 69 2b | 31 38 29 0d 65 6e 64 20 |of it,i+|18).end |
|000047b0| 72 65 70 65 61 74 0d 72 | 65 70 65 61 74 20 77 69 |repeat.r|epeat wi|
|000047c0| 74 68 20 69 3d 37 20 74 | 6f 20 38 0d 73 65 74 20 |th i=7 t|o 8.set |
|000047d0| 6e 61 6d 65 20 6f 66 20 | 62 74 6e 20 28 69 2b 36 |name of |btn (i+6|
|000047e0| 29 20 74 6f 20 47 45 54 | 5f 45 56 45 4e 54 28 69 |) to GET|_EVENT(i|
|000047f0| 74 65 6d 20 69 20 6f 66 | 20 69 74 29 0d 73 65 74 |tem i of| it).set|
|00004800| 20 69 63 6f 6e 20 6f 66 | 20 62 74 6e 20 28 69 2b | icon of| btn (i+|
|00004810| 34 29 20 74 6f 20 47 45 | 54 5f 49 43 4f 4e 28 69 |4) to GE|T_ICON(i|
|00004820| 74 65 6d 20 69 20 6f 66 | 20 69 74 29 0d 73 65 74 |tem i of| it).set|
|00004830| 20 64 69 73 61 62 6c 65 | 64 20 6f 66 20 62 74 6e | disable|d of btn|
|00004840| 20 28 69 2b 38 29 20 74 | 6f 20 28 69 74 65 6d 20 | (i+8) t|o (item |
|00004850| 69 20 6f 66 20 69 74 ad | 31 30 29 0d 65 6e 64 20 |i of it.|10).end |
|00004860| 72 65 70 65 61 74 0d 72 | 65 70 65 61 74 20 77 69 |repeat.r|epeat wi|
|00004870| 74 68 20 69 3d 34 20 74 | 6f 20 36 0d 65 6e 61 62 |th i=4 t|o 6.enab|
|00004880| 6c 65 20 62 74 6e 20 69 | 0d 73 65 74 20 6e 61 6d |le btn i|.set nam|
|00004890| 65 20 6f 66 20 62 74 6e | 20 69 20 74 6f 20 47 45 |e of btn| i to GE|
|000048a0| 54 5f 4e 41 56 28 69 74 | 65 6d 20 69 20 6f 66 20 |T_NAV(it|em i of |
|000048b0| 69 74 29 0d 73 65 74 20 | 64 69 73 61 62 6c 65 64 |it).set |disabled|
|000048c0| 20 6f 66 20 62 74 6e 20 | 28 69 2b 33 29 20 74 6f | of btn |(i+3) to|
|000048d0| 20 28 69 74 65 6d 20 69 | 20 6f 66 20 69 74 3d 31 | (item i| of it=1|
|000048e0| 29 0d 64 6f 20 22 73 65 | 74 20 73 63 72 69 70 74 |).do "se|t script|
|000048f0| 20 6f 66 20 67 72 63 22 | 20 26 26 20 69 20 26 26 | of grc"| && i &&|
|00004900| 22 74 6f 22 20 26 26 20 | 47 45 54 5f 4e 41 56 5f |"to" && |GET_NAV_|
|00004910| 47 4c 4f 42 41 4c 28 69 | 2d 33 29 0d 65 6e 64 20 |GLOBAL(i|-3).end |
|00004920| 72 65 70 65 61 74 0d 69 | 66 20 6e 6f 74 20 67 51 |repeat.i|f not gQ|
|00004930| 75 69 7a 52 65 76 69 73 | 69 74 20 74 68 65 6e 0d |uizRevis|it then.|
|00004940| 73 65 74 20 6e 61 6d 65 | 20 6f 66 20 62 74 6e 20 |set name| of btn |
|00004950| 34 20 74 6f 20 22 64 69 | 73 61 62 6c 65 22 0d 64 |4 to "di|sable".d|
|00004960| 69 73 61 62 6c 65 20 62 | 74 6e 20 34 0d 64 69 73 |isable b|tn 4.dis|
|00004970| 61 62 6c 65 20 62 74 6e | 20 37 0d 2d 2d 20 20 20 |able btn| 7.--   |
|00004980| 20 70 75 74 20 31 20 69 | 6e 74 6f 20 69 74 65 6d | put 1 i|nto item|
|00004990| 20 31 20 6f 66 20 62 67 | 20 66 6c 64 20 33 0d 65 | 1 of bg| fld 3.e|
|000049a0| 6e 64 20 69 66 0d 72 65 | 70 65 61 74 20 77 69 74 |nd if.re|peat wit|
|000049b0| 68 20 69 3d 31 31 20 74 | 6f 20 31 34 0d 73 65 74 |h i=11 t|o 14.set|
|000049c0| 20 64 69 73 61 62 6c 65 | 64 20 6f 66 20 62 74 6e | disable|d of btn|
|000049d0| 20 69 20 74 6f 20 28 6e | 75 6d 20 6f 66 20 69 74 | i to (n|um of it|
|000049e0| 65 6d 73 20 69 6e 20 67 | 43 75 72 72 53 63 72 65 |ems in g|CurrScre|
|000049f0| 65 6e 73 3e 31 29 0d 65 | 6e 64 20 72 65 70 65 61 |ens>1).e|nd repea|
|00004a00| 74 0d 65 6e 64 20 53 43 | 52 45 45 4e 5f 50 52 45 |t.end SC|REEN_PRE|
|00004a10| 46 53 0d 0d 6f 6e 20 53 | 48 4f 57 5f 45 56 45 4e |FS..on S|HOW_EVEN|
|00004a20| 54 20 65 76 74 2c 77 68 | 69 63 68 46 6c 64 0d 67 |T evt,wh|ichFld.g|
|00004a30| 6c 6f 62 61 6c 20 67 44 | 6f 63 0d 69 66 20 69 74 |lobal gD|oc.if it|
|00004a40| 65 6d 20 31 20 6f 66 20 | 65 76 74 3d 22 a5 a5 53 |em 1 of |evt="..S|
|00004a50| 45 4e 44 a5 a5 22 20 74 | 68 65 6e 0d 70 75 74 20 |END.." t|hen.put |
|00004a60| 69 74 65 6d 20 32 20 6f | 66 20 65 76 74 20 26 26 |item 2 o|f evt &&|
|00004a70| 20 22 6f 66 20 77 64 20 | 32 20 6f 66 20 70 72 6f | "of wd |2 of pro|
|00004a80| 6a 20 67 44 6f 63 22 20 | 69 6e 74 6f 20 65 76 74 |j gDoc" |into evt|
|00004a90| 4f 62 6a 0d 64 6f 20 22 | 67 65 74 20 65 78 69 73 |Obj.do "|get exis|
|00004aa0| 74 73 28 22 20 26 65 76 | 74 4f 62 6a 26 20 22 29 |ts(" &ev|tObj& ")|
|00004ab0| 22 0d 69 66 20 6e 6f 74 | 20 69 74 20 74 68 65 6e |".if not| it then|
|00004ac0| 0d 61 6e 73 77 65 72 20 | 67 65 74 53 74 72 28 31 |.answer |getStr(1|
|00004ad0| 32 30 30 30 2c 32 37 29 | 0d 70 75 74 20 22 22 20 |2000,27)|.put "" |
|00004ae0| 69 6e 74 6f 20 65 76 74 | 0d 70 75 74 20 22 22 20 |into evt|.put "" |
|00004af0| 69 6e 74 6f 20 63 64 20 | 66 6c 64 20 77 68 69 63 |into cd |fld whic|
|00004b00| 68 46 6c 64 0d 65 6c 73 | 65 20 64 6f 20 22 70 75 |hFld.els|e do "pu|
|00004b10| 74 20 73 68 6f 72 74 20 | 6e 61 6d 65 20 6f 66 22 |t short |name of"|
|00004b20| 20 26 26 65 76 74 4f 62 | 6a 26 26 20 22 69 6e 74 | &&evtOb|j&& "int|
|00004b30| 6f 20 63 64 20 66 6c 64 | 22 20 26 26 77 68 69 63 |o cd fld|" &&whic|
|00004b40| 68 46 6c 64 0d 65 6c 73 | 65 20 70 75 74 20 65 78 |hFld.els|e put ex|
|00004b50| 74 72 61 63 74 4e 61 6d | 65 28 69 74 65 6d 20 34 |tractNam|e(item 4|
|00004b60| 20 6f 66 20 65 76 74 29 | 20 69 6e 74 6f 20 63 64 | of evt)| into cd|
|00004b70| 20 66 6c 64 20 77 68 69 | 63 68 46 6c 64 0d 70 75 | fld whi|chFld.pu|
|00004b80| 74 20 65 76 74 20 69 6e | 74 6f 20 63 64 20 66 6c |t evt in|to cd fl|
|00004b90| 64 20 28 77 68 69 63 68 | 46 6c 64 2b 33 29 0d 65 |d (which|Fld+3).e|
|00004ba0| 6e 64 20 53 48 4f 57 5f | 45 56 45 4e 54 0d 0d 6f |nd SHOW_|EVENT..o|
|00004bb0| 6e 20 53 43 52 45 45 4e | 5f 53 54 41 54 55 53 20 |n SCREEN|_STATUS |
|00004bc0| 73 74 61 74 65 0d 67 6c | 6f 62 61 6c 20 67 44 6f |state.gl|obal gDo|
|00004bd0| 63 2c 67 53 63 72 65 65 | 6e 4e 75 6d 0d 6c 6f 63 |c,gScree|nNum.loc|
|00004be0| 6b 20 73 63 72 65 65 6e | 0d 69 66 20 6e 75 6d 20 |k screen|.if num |
|00004bf0| 6f 66 20 63 64 73 20 6f | 66 20 77 64 20 32 20 6f |of cds o|f wd 2 o|
|00004c00| 66 20 70 72 6f 6a 20 67 | 44 6f 63 3e 6e 75 6d 20 |f proj g|Doc>num |
|00004c10| 6f 66 20 6c 69 6e 65 73 | 20 69 6e 20 62 67 20 66 |of lines| in bg f|
|00004c20| 6c 64 20 31 20 6f 66 20 | 63 64 20 31 20 74 68 65 |ld 1 of |cd 1 the|
|00004c30| 6e 0d 73 65 74 20 73 74 | 79 6c 65 20 6f 66 20 62 |n.set st|yle of b|
|00004c40| 67 20 66 6c 64 20 31 20 | 6f 66 20 63 64 20 31 20 |g fld 1 |of cd 1 |
|00004c50| 74 6f 20 73 63 72 6f 6c | 6c 69 6e 67 0d 70 75 74 |to scrol|ling.put|
|00004c60| 20 63 72 20 62 65 66 6f | 72 65 20 6c 69 6e 65 20 | cr befo|re line |
|00004c70| 67 53 63 72 65 65 6e 4e | 75 6d 20 6f 66 20 62 67 |gScreenN|um of bg|
|00004c80| 20 66 6c 64 20 31 20 6f | 66 20 63 64 20 31 0d 73 | fld 1 o|f cd 1.s|
|00004c90| 65 74 20 73 74 79 6c 65 | 20 6f 66 20 62 67 20 66 |et style| of bg f|
|00004ca0| 6c 64 20 31 20 6f 66 20 | 63 64 20 31 20 74 6f 20 |ld 1 of |cd 1 to |
|00004cb0| 73 63 72 6f 6c 6c 69 6e | 67 4c 69 73 74 0d 65 6e |scrollin|gList.en|
|00004cc0| 64 20 69 66 0d 55 50 44 | 41 54 45 5f 53 54 41 54 |d if.UPD|ATE_STAT|
|00004cd0| 55 53 0d 69 66 20 73 74 | 61 74 65 3d 22 74 72 75 |US.if st|ate="tru|
|00004ce0| 65 22 20 74 68 65 6e 20 | 6f 70 65 6e 43 61 72 64 |e" then |openCard|
|00004cf0| 0d 73 65 74 57 69 6e 64 | 6f 77 20 77 64 20 32 20 |.setWind|ow wd 2 |
|00004d00| 6f 66 20 70 72 6f 6a 20 | 67 44 6f 63 0d 65 6e 64 |of proj |gDoc.end|
|00004d10| 20 53 43 52 45 45 4e 5f | 53 54 41 54 55 53 0d 0d | SCREEN_|STATUS..|
|00004d20| 6f 6e 20 55 50 44 41 54 | 45 5f 53 54 41 54 55 53 |on UPDAT|E_STATUS|
|00004d30| 0d 67 6c 6f 62 61 6c 20 | 67 44 6f 63 2c 67 53 63 |.global |gDoc,gSc|
|00004d40| 72 65 65 6e 4e 75 6d 2c | 67 53 63 72 65 65 6e 2c |reenNum,|gScreen,|
|00004d50| 67 41 75 74 6f 45 76 65 | 6e 74 31 2c 67 41 75 74 |gAutoEve|nt1,gAut|
|00004d60| 6f 45 76 65 6e 74 32 0d | 69 66 20 65 78 69 73 74 |oEvent2.|if exist|
|00004d70| 73 28 63 64 20 67 53 63 | 72 65 65 6e 4e 75 6d 20 |s(cd gSc|reenNum |
|00004d80| 6f 66 20 77 64 20 32 20 | 6f 66 20 70 72 6f 6a 20 |of wd 2 |of proj |
|00004d90| 67 44 6f 63 29 20 74 68 | 65 6e 0d 67 65 74 20 6c |gDoc) th|en.get l|
|00004da0| 69 6e 65 20 31 33 20 6f | 66 20 73 63 72 69 70 74 |ine 13 o|f script|
|00004db0| 20 6f 66 20 63 64 20 67 | 53 63 72 65 65 6e 4e 75 | of cd g|ScreenNu|
|00004dc0| 6d 20 6f 66 20 77 64 20 | 32 20 6f 66 20 70 72 6f |m of wd |2 of pro|
|00004dd0| 6a 20 67 44 6f 63 0d 69 | 66 20 69 74 3d 22 22 20 |j gDoc.i|f it="" |
|00004de0| 74 68 65 6e 0d 69 66 20 | 65 78 69 73 74 73 28 63 |then.if |exists(c|
|00004df0| 64 20 66 6c 64 20 22 a5 | 71 75 65 73 74 69 6f 6e |d fld ".|question|
|00004e00| 22 20 6f 66 20 63 64 20 | 67 53 63 72 65 65 6e 4e |" of cd |gScreenN|
|00004e10| 75 6d 20 6f 66 20 77 64 | 20 32 20 6f 66 20 70 72 |um of wd| 2 of pr|
|00004e20| 6f 6a 20 67 44 6f 63 29 | 20 74 68 65 6e 0d 67 65 |oj gDoc)| then.ge|
|00004e30| 74 20 63 64 20 66 6c 64 | 20 22 a5 71 75 65 73 74 |t cd fld| ".quest|
|00004e40| 69 6f 6e 22 20 6f 66 20 | 63 64 20 67 53 63 72 65 |ion" of |cd gScre|
|00004e50| 65 6e 4e 75 6d 20 6f 66 | 20 77 64 20 32 20 6f 66 |enNum of| wd 2 of|
|00004e60| 20 70 72 6f 6a 20 67 44 | 6f 63 0d 65 6c 73 65 20 | proj gD|oc.else |
|00004e70| 69 66 20 65 78 69 73 74 | 73 28 63 64 20 66 6c 64 |if exist|s(cd fld|
|00004e80| 20 31 20 6f 66 20 63 64 | 20 67 53 63 72 65 65 6e | 1 of cd| gScreen|
|00004e90| 4e 75 6d 20 6f 66 20 77 | 64 20 32 20 6f 66 20 70 |Num of w|d 2 of p|
|00004ea0| 72 6f 6a 20 67 44 6f 63 | 29 20 74 68 65 6e 0d 67 |roj gDoc|) then.g|
|00004eb0| 65 74 20 63 64 20 66 6c | 64 20 31 20 6f 66 20 63 |et cd fl|d 1 of c|
|00004ec0| 64 20 67 53 63 72 65 65 | 6e 4e 75 6d 20 6f 66 20 |d gScree|nNum of |
|00004ed0| 77 64 20 32 20 6f 66 20 | 70 72 6f 6a 20 67 44 6f |wd 2 of |proj gDo|
|00004ee0| 63 0d 65 6e 64 20 69 66 | 0d 69 66 20 69 74 3d 22 |c.end if|.if it="|
|00004ef0| 22 20 74 68 65 6e 20 70 | 75 74 20 22 55 6e 74 69 |" then p|ut "Unti|
|00004f00| 74 6c 65 64 22 20 69 6e | 74 6f 20 69 74 0d 65 6e |tled" in|to it.en|
|00004f10| 64 20 69 66 0d 65 6e 64 | 20 69 66 0d 70 75 74 20 |d if.end| if.put |
|00004f20| 54 52 55 4e 43 41 54 45 | 28 69 74 2c 33 32 29 20 |TRUNCATE|(it,32) |
|00004f30| 69 6e 74 6f 20 67 53 63 | 72 65 65 6e 0d 70 75 74 |into gSc|reen.put|
|00004f40| 20 6e 75 6d 54 6f 43 68 | 61 72 28 32 32 35 29 20 | numToCh|ar(225) |
|00004f50| 69 6e 74 6f 20 73 74 61 | 74 75 73 0d 69 66 20 65 |into sta|tus.if e|
|00004f60| 78 69 73 74 73 28 63 64 | 20 66 6c 64 20 22 a5 71 |xists(cd| fld ".q|
|00004f70| 75 65 73 74 69 6f 6e 22 | 20 6f 66 20 63 64 20 67 |uestion"| of cd g|
|00004f80| 53 63 72 65 65 6e 4e 75 | 6d 20 6f 66 20 77 64 20 |ScreenNu|m of wd |
|00004f90| 32 20 6f 66 20 70 72 6f | 6a 20 67 44 6f 63 29 20 |2 of pro|j gDoc) |
|00004fa0| 74 68 65 6e 0d 69 66 20 | 28 62 67 20 66 6c 64 20 |then.if |(bg fld |
|00004fb0| 22 a5 61 6e 73 77 65 72 | 22 20 6f 66 20 63 64 20 |".answer|" of cd |
|00004fc0| 67 53 63 72 65 65 6e 4e | 75 6d 20 6f 66 20 77 64 |gScreenN|um of wd|
|00004fd0| 20 32 20 6f 66 20 70 72 | 6f 6a 20 67 44 6f 63 3d | 2 of pr|oj gDoc=|
|00004fe0| 22 22 29 20 74 68 65 6e | 20 70 75 74 20 74 61 62 |"") then| put tab|
|00004ff0| 26 22 20 22 20 69 6e 74 | 6f 20 73 74 61 74 75 73 |&" " int|o status|
|00005000| 0d 65 6e 64 20 69 66 0d | 70 75 74 20 45 56 54 5f |.end if.|put EVT_|
|00005010| 53 54 41 54 28 67 41 75 | 74 6f 45 76 65 6e 74 31 |STAT(gAu|toEvent1|
|00005020| 29 20 61 66 74 65 72 20 | 73 74 61 74 75 73 0d 70 |) after |status.p|
|00005030| 75 74 20 45 56 54 5f 53 | 54 41 54 28 67 41 75 74 |ut EVT_S|TAT(gAut|
|00005040| 6f 45 76 65 6e 74 32 29 | 20 61 66 74 65 72 20 73 |oEvent2)| after s|
|00005050| 74 61 74 75 73 0d 70 75 | 74 20 73 74 61 74 75 73 |tatus.pu|t status|
|00005060| 26 74 61 62 26 22 20 22 | 26 67 53 63 72 65 65 6e |&tab&" "|&gScreen|
|00005070| 20 69 6e 74 6f 20 6c 69 | 6e 65 20 28 67 53 63 72 | into li|ne (gScr|
|00005080| 65 65 6e 4e 75 6d 29 20 | 6f 66 20 62 67 20 66 6c |eenNum) |of bg fl|
|00005090| 64 20 31 20 6f 66 20 63 | 64 20 31 0d 65 6e 64 20 |d 1 of c|d 1.end |
|000050a0| 55 50 44 41 54 45 5f 53 | 54 41 54 55 53 0d 0d 66 |UPDATE_S|TATUS..f|
|000050b0| 75 6e 63 74 69 6f 6e 20 | 45 56 54 5f 53 54 41 54 |unction |EVT_STAT|
|000050c0| 20 65 76 74 0d 69 66 20 | 65 76 74 3d 22 22 20 74 | evt.if |evt="" t|
|000050d0| 68 65 6e 20 72 65 74 75 | 72 6e 20 74 61 62 26 22 |hen retu|rn tab&"|
|000050e0| 20 22 0d 67 65 74 20 69 | 74 65 6d 20 31 20 6f 66 | ".get i|tem 1 of|
|000050f0| 20 65 76 74 0d 69 66 20 | 22 73 6f 75 6e 64 22 20 | evt.if |"sound" |
|00005100| 69 73 20 69 6e 20 69 74 | 20 74 68 65 6e 20 72 65 |is in it| then re|
|00005110| 74 75 72 6e 20 6e 75 6d | 54 6f 43 68 61 72 28 32 |turn num|ToChar(2|
|00005120| 33 37 29 0d 69 66 20 22 | 6d 6f 76 69 65 22 20 69 |37).if "|movie" i|
|00005130| 73 20 69 6e 20 69 74 20 | 74 68 65 6e 20 72 65 74 |s in it |then ret|
|00005140| 75 72 6e 20 6e 75 6d 54 | 6f 43 68 61 72 28 32 33 |urn numT|oChar(23|
|00005150| 38 29 0d 69 66 20 22 6d | 69 64 69 22 20 69 73 20 |8).if "m|idi" is |
|00005160| 69 6e 20 69 74 20 74 68 | 65 6e 20 72 65 74 75 72 |in it th|en retur|
|00005170| 6e 20 6e 75 6d 54 6f 43 | 68 61 72 28 32 34 33 29 |n numToC|har(243)|
|00005180| 0d 69 66 20 69 74 3d 22 | a5 a5 53 45 4e 44 a5 a5 |.if it="|..SEND..|
|00005190| 22 20 74 68 65 6e 20 72 | 65 74 75 72 6e 20 6e 75 |" then r|eturn nu|
|000051a0| 6d 54 6f 43 68 61 72 28 | 32 32 34 29 0d 65 6e 64 |mToChar(|224).end|
|000051b0| 20 45 56 54 5f 53 54 41 | 54 0d 0d 6f 6e 20 53 45 | EVT_STA|T..on SE|
|000051c0| 54 5f 43 41 52 44 5f 50 | 52 45 46 53 0d 67 6c 6f |T_CARD_P|REFS.glo|
|000051d0| 62 61 6c 20 67 53 63 72 | 65 65 6e 2c 67 43 75 72 |bal gScr|een,gCur|
|000051e0| 72 53 63 72 65 65 6e 73 | 2c 67 54 72 61 6e 73 69 |rScreens|,gTransi|
|000051f0| 74 69 6f 6e 2c 67 41 75 | 74 6f 45 76 65 6e 74 31 |tion,gAu|toEvent1|
|00005200| 2c 67 41 75 74 6f 45 76 | 65 6e 74 32 2c 67 4e 61 |,gAutoEv|ent2,gNa|
|00005210| 76 50 72 65 76 2c 67 4e | 61 76 4e 65 78 74 2c 67 |vPrev,gN|avNext,g|
|00005220| 4e 61 76 52 74 6e 0d 67 | 6c 6f 62 61 6c 20 67 4e |NavRtn.g|lobal gN|
|00005230| 61 76 50 61 6c 2c 67 41 | 70 70 6c 2c 67 44 6f 63 |avPal,gA|ppl,gDoc|
|00005240| 2c 67 4c 69 6e 6b 53 72 | 63 0d 6c 6f 63 6b 20 73 |,gLinkSr|c.lock s|
|00005250| 63 72 65 65 6e 0d 73 65 | 74 20 63 75 72 73 6f 72 |creen.se|t cursor|
|00005260| 20 74 6f 20 62 75 73 79 | 0d 70 75 74 20 22 22 20 | to busy|.put "" |
|00005270| 69 6e 74 6f 20 67 4c 69 | 6e 6b 53 72 63 0d 69 66 |into gLi|nkSrc.if|
|00005280| 20 6e 75 6d 20 6f 66 20 | 69 74 65 6d 73 20 69 6e | num of |items in|
|00005290| 20 67 43 75 72 72 53 63 | 72 65 65 6e 73 3d 31 20 | gCurrSc|reens=1 |
|000052a0| 74 68 65 6e 0d 69 66 20 | 67 53 63 72 65 65 6e ad |then.if |gScreen.|
|000052b0| 63 64 20 66 6c 64 20 22 | 4e 61 6d 65 22 20 74 68 |cd fld "|Name" th|
|000052c0| 65 6e 0d 70 75 74 20 69 | 74 65 6d 20 31 20 6f 66 |en.put i|tem 1 of|
|000052d0| 20 67 43 75 72 72 53 63 | 72 65 65 6e 73 20 69 6e | gCurrSc|reens in|
|000052e0| 74 6f 20 73 63 72 65 65 | 6e 0d 70 75 74 20 63 64 |to scree|n.put cd|
|000052f0| 20 66 6c 64 20 22 4e 61 | 6d 65 22 20 69 6e 74 6f | fld "Na|me" into|
|00005300| 20 67 53 63 72 65 65 6e | 0d 67 65 74 20 73 63 72 | gScreen|.get scr|
|00005310| 69 70 74 20 6f 66 20 63 | 64 20 73 63 72 65 65 6e |ipt of c|d screen|
|00005320| 20 6f 66 20 77 64 20 32 | 20 6f 66 20 70 72 6f 6a | of wd 2| of proj|
|00005330| 20 67 44 6f 63 0d 70 75 | 74 20 67 53 63 72 65 65 | gDoc.pu|t gScree|
|00005340| 6e 20 69 6e 74 6f 20 6c | 69 6e 65 20 31 33 20 6f |n into l|ine 13 o|
|00005350| 66 20 69 74 0d 73 65 74 | 20 73 63 72 69 70 74 20 |f it.set| script |
|00005360| 6f 66 20 63 64 20 73 63 | 72 65 65 6e 20 6f 66 20 |of cd sc|reen of |
|00005370| 77 64 20 32 20 6f 66 20 | 70 72 6f 6a 20 67 44 6f |wd 2 of |proj gDo|
|00005380| 63 20 74 6f 20 69 74 0d | 65 6e 64 20 69 66 0d 65 |c to it.|end if.e|
|00005390| 6e 64 20 69 66 0d 70 75 | 74 20 63 64 20 66 6c 64 |nd if.pu|t cd fld|
|000053a0| 20 22 44 65 6c 61 79 22 | 20 69 6e 74 6f 20 69 74 | "Delay"| into it|
|000053b0| 65 6d 20 39 20 6f 66 20 | 62 67 20 66 6c 64 20 33 |em 9 of |bg fld 3|
|000053c0| 0d 72 65 70 65 61 74 20 | 77 69 74 68 20 6e 75 6d |.repeat |with num|
|000053d0| 53 63 72 65 65 6e 73 3d | 31 20 74 6f 20 6e 75 6d |Screens=|1 to num|
|000053e0| 20 6f 66 20 69 74 65 6d | 73 20 69 6e 20 67 43 75 | of item|s in gCu|
|000053f0| 72 72 53 63 72 65 65 6e | 73 0d 73 65 74 20 63 75 |rrScreen|s.set cu|
|00005400| 72 73 6f 72 20 74 6f 20 | 62 75 73 79 0d 70 75 74 |rsor to |busy.put|
|00005410| 20 69 74 65 6d 20 6e 75 | 6d 53 63 72 65 65 6e 73 | item nu|mScreens|
|00005420| 20 6f 66 20 67 43 75 72 | 72 53 63 72 65 65 6e 73 | of gCur|rScreens|
|00005430| 20 69 6e 74 6f 20 73 63 | 72 65 65 6e 0d 70 75 74 | into sc|reen.put|
|00005440| 20 73 63 72 69 70 74 20 | 6f 66 20 63 64 20 73 63 | script |of cd sc|
|00005450| 72 65 65 6e 20 6f 66 20 | 77 64 20 32 20 6f 66 20 |reen of |wd 2 of |
|00005460| 70 72 6f 6a 20 67 44 6f | 63 20 69 6e 74 6f 20 73 |proj gDo|c into s|
|00005470| 63 72 6e 53 63 72 69 70 | 74 0d 69 66 20 6e 75 6d |crnScrip|t.if num|
|00005480| 20 6f 66 20 69 74 65 6d | 73 20 69 6e 20 67 43 75 | of item|s in gCu|
|00005490| 72 72 53 63 72 65 65 6e | 73 3d 31 20 74 68 65 6e |rrScreen|s=1 then|
|000054a0| 0d 70 75 74 20 62 67 20 | 66 6c 64 20 33 20 69 6e |.put bg |fld 3 in|
|000054b0| 74 6f 20 73 65 74 74 69 | 6e 67 73 0d 70 75 74 20 |to setti|ngs.put |
|000054c0| 63 64 20 66 6c 64 20 36 | 20 69 6e 74 6f 20 67 41 |cd fld 6| into gA|
|000054d0| 75 74 6f 45 76 65 6e 74 | 31 0d 70 75 74 20 67 41 |utoEvent|1.put gA|
|000054e0| 75 74 6f 45 76 65 6e 74 | 31 20 69 6e 74 6f 20 6c |utoEvent|1 into l|
|000054f0| 69 6e 65 20 37 20 6f 66 | 20 73 63 72 6e 53 63 72 |ine 7 of| scrnScr|
|00005500| 69 70 74 0d 70 75 74 20 | 63 64 20 66 6c 64 20 37 |ipt.put |cd fld 7|
|00005510| 20 69 6e 74 6f 20 67 41 | 75 74 6f 45 76 65 6e 74 | into gA|utoEvent|
|00005520| 32 0d 70 75 74 20 67 41 | 75 74 6f 45 76 65 6e 74 |2.put gA|utoEvent|
|00005530| 32 20 69 6e 74 6f 20 6c | 69 6e 65 20 38 20 6f 66 |2 into l|ine 8 of|
|00005540| 20 73 63 72 6e 53 63 72 | 69 70 74 0d 65 6c 73 65 | scrnScr|ipt.else|
|00005550| 0d 70 75 74 20 6c 69 6e | 65 20 32 20 6f 66 20 73 |.put lin|e 2 of s|
|00005560| 63 72 6e 53 63 72 69 70 | 74 20 69 6e 74 6f 20 73 |crnScrip|t into s|
|00005570| 65 74 74 69 6e 67 73 0d | 69 66 20 73 65 74 74 69 |ettings.|if setti|
|00005580| 6e 67 73 3d 22 22 20 74 | 68 65 6e 20 70 75 74 20 |ngs="" t|hen put |
|00005590| 43 41 52 44 5f 44 45 46 | 41 55 4c 54 53 28 29 20 |CARD_DEF|AULTS() |
|000055a0| 69 6e 74 6f 20 73 65 74 | 74 69 6e 67 73 0d 72 65 |into set|tings.re|
|000055b0| 70 65 61 74 20 77 69 74 | 68 20 69 3d 31 20 74 6f |peat wit|h i=1 to|
|000055c0| 20 38 0d 67 65 74 20 69 | 74 65 6d 20 69 20 6f 66 | 8.get i|tem i of|
|000055d0| 20 62 67 20 66 6c 64 20 | 33 0d 69 66 20 69 74 ad | bg fld |3.if it.|
|000055e0| 30 20 74 68 65 6e 20 70 | 75 74 20 69 74 20 69 6e |0 then p|ut it in|
|000055f0| 74 6f 20 69 74 65 6d 20 | 69 20 6f 66 20 73 65 74 |to item |i of set|
|00005600| 74 69 6e 67 73 0d 65 6e | 64 20 72 65 70 65 61 74 |tings.en|d repeat|
|00005610| 0d 65 6e 64 20 69 66 0d | 73 65 74 20 63 75 72 73 |.end if.|set curs|
|00005620| 6f 72 20 74 6f 20 62 75 | 73 79 0d 70 75 74 20 73 |or to bu|sy.put s|
|00005630| 65 74 74 69 6e 67 73 20 | 69 6e 74 6f 20 6c 69 6e |ettings |into lin|
|00005640| 65 20 32 20 6f 66 20 73 | 63 72 6e 53 63 72 69 70 |e 2 of s|crnScrip|
|00005650| 74 0d 67 65 74 20 4d 45 | 4e 55 5f 49 54 45 4d 28 |t.get ME|NU_ITEM(|
|00005660| 69 74 65 6d 20 33 20 6f | 66 20 73 65 74 74 69 6e |item 3 o|f settin|
|00005670| 67 73 2c 32 31 29 0d 69 | 66 20 69 74 3d 22 73 63 |gs,21).i|f it="sc|
|00005680| 72 65 65 6e 22 20 74 68 | 65 6e 20 67 65 74 20 22 |reen" th|en get "|
|00005690| 63 64 22 0d 70 75 74 20 | 22 76 69 73 75 61 6c 22 |cd".put |"visual"|
|000056a0| 20 26 26 20 4d 45 4e 55 | 5f 49 54 45 4d 28 69 74 | && MENU|_ITEM(it|
|000056b0| 65 6d 20 31 20 6f 66 20 | 73 65 74 74 69 6e 67 73 |em 1 of |settings|
|000056c0| 2c 31 39 29 20 26 26 20 | 4d 45 4e 55 5f 49 54 45 |,19) && |MENU_ITE|
|000056d0| 4d 28 69 74 65 6d 20 32 | 20 6f 66 20 73 65 74 74 |M(item 2| of sett|
|000056e0| 69 6e 67 73 2c 32 30 29 | c2 0d 26 26 20 22 74 6f |ings,20)|..&& "to|
|000056f0| 22 20 26 26 20 69 74 20 | 69 6e 74 6f 20 67 54 72 |" && it |into gTr|
|00005700| 61 6e 73 69 74 69 6f 6e | 0d 73 65 74 20 63 75 72 |ansition|.set cur|
|00005710| 73 6f 72 20 74 6f 20 62 | 75 73 79 0d 70 75 74 20 |sor to b|usy.put |
|00005720| 73 65 74 74 69 6e 67 73 | 20 69 6e 74 6f 20 6c 69 |settings| into li|
|00005730| 6e 65 20 32 20 6f 66 20 | 73 63 72 6e 53 63 72 69 |ne 2 of |scrnScri|
|00005740| 70 74 0d 70 75 74 20 67 | 54 72 61 6e 73 69 74 69 |pt.put g|Transiti|
|00005750| 6f 6e 20 69 6e 74 6f 20 | 6c 69 6e 65 20 33 20 6f |on into |line 3 o|
|00005760| 66 20 73 63 72 6e 53 63 | 72 69 70 74 0d 72 65 70 |f scrnSc|ript.rep|
|00005770| 65 61 74 20 77 69 74 68 | 20 69 3d 34 20 74 6f 20 |eat with| i=4 to |
|00005780| 36 0d 67 65 74 20 43 41 | 4c 43 5f 4e 41 56 28 69 |6.get CA|LC_NAV(i|
|00005790| 2c 73 65 74 74 69 6e 67 | 73 2c 69 29 0d 70 75 74 |,setting|s,i).put|
|000057a0| 20 69 74 20 69 6e 74 6f | 20 6c 69 6e 65 20 69 20 | it into| line i |
|000057b0| 6f 66 20 73 63 72 6e 53 | 63 72 69 70 74 0d 64 6f |of scrnS|cript.do|
|000057c0| 20 22 70 75 74 20 69 74 | 20 69 6e 74 6f 22 20 26 | "put it| into" &|
|000057d0| 26 20 47 45 54 5f 4e 41 | 56 5f 47 4c 4f 42 41 4c |& GET_NA|V_GLOBAL|
|000057e0| 28 69 2d 33 29 0d 65 6e | 64 20 72 65 70 65 61 74 |(i-3).en|d repeat|
|000057f0| 0d 70 75 74 20 43 41 4c | 43 5f 4e 41 56 28 31 30 |.put CAL|C_NAV(10|
|00005800| 2c 73 65 74 74 69 6e 67 | 73 2c 31 30 29 20 69 6e |,setting|s,10) in|
|00005810| 74 6f 20 6c 69 6e 65 20 | 31 31 20 6f 66 20 73 63 |to line |11 of sc|
|00005820| 72 6e 53 63 72 69 70 74 | 0d 73 65 74 20 73 63 72 |rnScript|.set scr|
|00005830| 69 70 74 20 6f 66 20 63 | 64 20 73 63 72 65 65 6e |ipt of c|d screen|
|00005840| 20 6f 66 20 77 64 20 32 | 20 6f 66 20 70 72 6f 6a | of wd 2| of proj|
|00005850| 20 67 44 6f 63 20 74 6f | 20 73 63 72 6e 53 63 72 | gDoc to| scrnScr|
|00005860| 69 70 74 0d 65 6e 64 20 | 72 65 70 65 61 74 0d 69 |ipt.end |repeat.i|
|00005870| 66 20 67 4e 61 76 50 61 | 6c 20 74 68 65 6e 20 73 |f gNavPa|l then s|
|00005880| 65 6e 64 20 55 50 44 41 | 54 45 5f 4e 41 56 20 74 |end UPDA|TE_NAV t|
|00005890| 6f 20 77 64 20 36 20 6f | 66 20 70 72 6f 6a 20 67 |o wd 6 o|f proj g|
|000058a0| 41 70 70 6c 0d 55 50 44 | 41 54 45 5f 53 54 41 54 |Appl.UPD|ATE_STAT|
|000058b0| 55 53 0d 67 6f 20 63 64 | 20 31 0d 65 6e 64 20 53 |US.go cd| 1.end S|
|000058c0| 45 54 5f 43 41 52 44 5f | 50 52 45 46 53 0d 0d 66 |ET_CARD_|PREFS..f|
|000058d0| 75 6e 63 74 69 6f 6e 20 | 47 45 54 5f 4e 41 56 5f |unction |GET_NAV_|
|000058e0| 47 4c 4f 42 41 4c 20 69 | 64 78 0d 72 65 74 75 72 |GLOBAL i|dx.retur|
|000058f0| 6e 20 47 45 54 5f 49 4e | 44 45 58 28 69 64 78 2c |n GET_IN|DEX(idx,|
|00005900| 22 67 4e 61 76 50 72 65 | 76 2c 67 4e 61 76 4e 65 |"gNavPre|v,gNavNe|
|00005910| 78 74 2c 67 4e 61 76 52 | 74 6e 22 29 0d 65 6e 64 |xt,gNavR|tn").end|
|00005920| 20 47 45 54 5f 4e 41 56 | 5f 47 4c 4f 42 41 4c 0d | GET_NAV|_GLOBAL.|
|00005930| 0d 6f 6e 20 45 56 45 4e | 54 5f 50 4f 50 20 77 68 |.on EVEN|T_POP wh|
|00005940| 69 63 68 45 76 74 0d 61 | 64 64 6d 65 6e 75 20 32 |ichEvt.a|ddmenu 2|
|00005950| 32 35 2c 22 22 2c 22 22 | 2c 22 22 2c 2d 31 0d 72 |25,"",""|,"",-1.r|
|00005960| 65 70 65 61 74 20 77 69 | 74 68 20 69 3d 35 20 74 |epeat wi|th i=5 t|
|00005970| 6f 20 31 33 0d 6d 6f 64 | 69 66 79 4d 65 6e 75 20 |o 13.mod|ifyMenu |
|00005980| 32 32 35 2c 69 2c 66 61 | 6c 73 65 0d 65 6e 64 20 |225,i,fa|lse.end |
|00005990| 72 65 70 65 61 74 0d 6d | 6f 64 69 66 79 4d 65 6e |repeat.m|odifyMen|
|000059a0| 75 20 32 32 35 2c 31 30 | 2c 74 72 75 65 0d 67 65 |u 225,10|,true.ge|
|000059b0| 74 20 6c 6f 63 20 6f 66 | 20 74 61 72 67 65 74 0d |t loc of| target.|
|000059c0| 61 64 64 20 31 30 20 74 | 6f 20 69 74 65 6d 20 31 |add 10 t|o item 1|
|000059d0| 20 6f 66 20 69 74 0d 67 | 65 74 20 70 6f 70 75 70 | of it.g|et popup|
|000059e0| 4d 65 6e 75 28 32 32 35 | 2c 69 74 65 6d 20 28 77 |Menu(225|,item (w|
|000059f0| 68 69 63 68 45 76 74 2b | 36 29 20 6f 66 20 62 67 |hichEvt+|6) of bg|
|00005a00| 20 66 6c 64 20 33 2c 69 | 74 29 0d 70 75 74 20 69 | fld 3,i|t).put i|
|00005a10| 74 65 6d 20 31 20 6f 66 | 20 69 74 20 69 6e 74 6f |tem 1 of| it into|
|00005a20| 20 65 76 74 54 79 70 65 | 0d 69 66 20 65 76 74 54 | evtType|.if evtT|
|00005a30| 79 70 65 ad 30 20 74 68 | 65 6e 0d 6c 6f 63 6b 20 |ype.0 th|en.lock |
|00005a40| 73 63 72 65 65 6e 0d 70 | 75 74 20 69 74 65 6d 20 |screen.p|ut item |
|00005a50| 32 20 6f 66 20 69 74 20 | 69 6e 74 6f 20 65 76 74 |2 of it |into evt|
|00005a60| 4e 61 6d 65 0d 70 75 74 | 20 22 22 20 69 6e 74 6f |Name.put| "" into|
|00005a70| 20 63 64 20 66 6c 64 20 | 28 77 68 69 63 68 45 76 | cd fld |(whichEv|
|00005a80| 74 2b 35 29 0d 70 75 74 | 20 22 22 20 69 6e 74 6f |t+5).put| "" into|
|00005a90| 20 63 64 20 66 6c 64 20 | 28 77 68 69 63 68 45 76 | cd fld |(whichEv|
|00005aa0| 74 2b 32 29 0d 69 66 20 | 65 76 74 54 79 70 65 3d |t+2).if |evtType=|
|00005ab0| 33 20 6f 72 20 65 76 74 | 54 79 70 65 3d 34 20 74 |3 or evt|Type=4 t|
|00005ac0| 68 65 6e 0d 67 65 74 20 | 47 45 54 5f 4d 45 44 49 |hen.get |GET_MEDI|
|00005ad0| 41 28 28 65 76 74 54 79 | 70 65 3d 33 29 2c 74 72 |A((evtTy|pe=3),tr|
|00005ae0| 75 65 2c 74 72 75 65 29 | 0d 69 66 20 69 74 3d 22 |ue,true)|.if it="|
|00005af0| 22 20 74 68 65 6e 20 65 | 78 69 74 20 45 56 45 4e |" then e|xit EVEN|
|00005b00| 54 5f 50 4f 50 0d 70 75 | 74 20 69 74 20 69 6e 74 |T_POP.pu|t it int|
|00005b10| 6f 20 63 64 20 66 6c 64 | 20 28 77 68 69 63 68 45 |o cd fld| (whichE|
|00005b20| 76 74 2b 35 29 0d 70 75 | 74 20 65 78 74 72 61 63 |vt+5).pu|t extrac|
|00005b30| 74 4e 61 6d 65 28 69 74 | 65 6d 20 34 20 6f 66 20 |tName(it|em 4 of |
|00005b40| 69 74 29 20 69 6e 74 6f | 20 63 64 20 66 6c 64 20 |it) into| cd fld |
|00005b50| 28 77 68 69 63 68 45 76 | 74 2b 32 29 0d 65 6c 73 |(whichEv|t+2).els|
|00005b60| 65 20 69 66 20 65 76 74 | 54 79 70 65 3d 31 30 20 |e if evt|Type=10 |
|00005b70| 74 68 65 6e 0d 61 6e 73 | 77 65 72 20 67 65 74 53 |then.ans|wer getS|
|00005b80| 74 72 28 31 32 30 30 30 | 2c 32 32 29 0d 64 6f 4d |tr(12000|,22).doM|
|00005b90| 65 6e 75 20 22 50 6f 69 | 6e 74 65 72 20 54 6f 6f |enu "Poi|nter Too|
|00005ba0| 6c 22 0d 65 6e 64 20 69 | 66 0d 73 65 74 20 6e 61 |l".end i|f.set na|
|00005bb0| 6d 65 20 6f 66 20 74 61 | 72 67 65 74 20 74 6f 20 |me of ta|rget to |
|00005bc0| 65 76 74 4e 61 6d 65 0d | 70 75 74 20 65 76 74 54 |evtName.|put evtT|
|00005bd0| 79 70 65 20 69 6e 74 6f | 20 69 74 65 6d 20 28 77 |ype into| item (w|
|00005be0| 68 69 63 68 45 76 74 2b | 36 29 20 6f 66 20 62 67 |hichEvt+|6) of bg|
|00005bf0| 20 66 6c 64 20 33 0d 73 | 65 74 20 69 63 6f 6e 20 | fld 3.s|et icon |
|00005c00| 6f 66 20 62 74 6e 20 28 | 77 68 69 63 68 45 76 74 |of btn (|whichEvt|
|00005c10| 2b 31 30 29 20 74 6f 20 | 47 45 54 5f 49 43 4f 4e |+10) to |GET_ICON|
|00005c20| 28 65 76 74 54 79 70 65 | 29 0d 73 65 74 20 64 69 |(evtType|).set di|
|00005c30| 73 61 62 6c 65 64 20 6f | 66 20 62 74 6e 20 28 77 |sabled o|f btn (w|
|00005c40| 68 69 63 68 45 76 74 2b | 31 34 29 20 74 6f 20 28 |hichEvt+|14) to (|
|00005c50| 65 76 74 54 79 70 65 ad | 31 30 29 0d 75 6e 6c 6f |evtType.|10).unlo|
|00005c60| 63 6b 20 73 63 72 65 65 | 6e 0d 65 6e 64 20 69 66 |ck scree|n.end if|
|00005c70| 0d 65 6e 64 20 45 56 45 | 4e 54 5f 50 4f 50 0d 0d |.end EVE|NT_POP..|
|00005c80| 6f 6e 20 45 56 45 4e 54 | 5f 50 4c 41 59 20 77 68 |on EVENT|_PLAY wh|
|00005c90| 69 63 68 45 76 74 0d 67 | 65 74 20 63 64 20 66 6c |ichEvt.g|et cd fl|
|00005ca0| 64 20 28 77 68 69 63 68 | 45 76 74 2b 35 29 0d 69 |d (which|Evt+5).i|
|00005cb0| 66 20 69 74 ad 22 22 20 | 74 68 65 6e 0d 73 65 74 |f it."" |then.set|
|00005cc0| 57 69 6e 64 6f 77 20 74 | 6f 70 57 69 6e 64 6f 77 |Window t|opWindow|
|00005cd0| 28 29 0d 50 4c 41 59 42 | 41 43 4b 20 22 22 2c 69 |().PLAYB|ACK "",i|
|00005ce0| 74 0d 65 6e 64 20 69 66 | 0d 65 6e 64 20 45 56 45 |t.end if|.end EVE|
|00005cf0| 4e 54 5f 50 4c 41 59 0d | 0d 6f 6e 20 45 56 4e 54 |NT_PLAY.|.on EVNT|
|00005d00| 5f 4f 42 4a 20 77 68 69 | 63 68 45 76 74 0d 70 75 |_OBJ whi|chEvt.pu|
|00005d10| 74 20 6c 6f 6e 67 20 69 | 64 20 6f 66 20 74 68 69 |t long i|d of thi|
|00005d20| 73 20 77 64 20 69 6e 74 | 6f 20 63 75 72 72 57 69 |s wd int|o currWi|
|00005d30| 6e 64 0d 70 75 74 20 4f | 42 4a 5f 53 45 4c 45 43 |nd.put O|BJ_SELEC|
|00005d40| 54 45 44 28 29 20 69 6e | 74 6f 20 65 76 74 4f 62 |TED() in|to evtOb|
|00005d50| 6a 0d 69 66 20 65 76 74 | 4f 62 6a 3d 22 22 20 74 |j.if evt|Obj="" t|
|00005d60| 68 65 6e 20 61 6e 73 77 | 65 72 20 67 65 74 53 74 |hen answ|er getSt|
|00005d70| 72 28 31 32 30 30 30 2c | 32 33 29 0d 65 6c 73 65 |r(12000,|23).else|
|00005d80| 0d 69 66 20 6e 75 6d 20 | 6f 66 20 69 74 65 6d 73 |.if num |of items|
|00005d90| 20 69 6e 20 65 76 74 4f | 62 6a 3e 31 20 74 68 65 | in evtO|bj>1 the|
|00005da0| 6e 20 61 6e 73 77 65 72 | 20 67 65 74 53 74 72 28 |n answer| getStr(|
|00005db0| 31 32 30 30 30 2c 32 34 | 29 0d 65 6c 73 65 0d 61 |12000,24|).else.a|
|00005dc0| 6e 73 77 65 72 20 67 65 | 74 53 74 72 28 31 32 30 |nswer ge|tStr(120|
|00005dd0| 30 30 2c 32 35 29 0d 67 | 65 74 20 73 68 6f 72 74 |00,25).g|et short|
|00005de0| 20 6e 61 6d 65 20 6f 66 | 20 65 76 74 4f 62 6a 0d | name of| evtObj.|
|00005df0| 73 65 74 57 69 6e 64 6f | 77 20 63 75 72 72 57 69 |setWindo|w currWi|
|00005e00| 6e 64 0d 70 75 74 20 22 | a5 a5 53 45 4e 44 a5 a5 |nd.put "|..SEND..|
|00005e10| 2c 22 20 26 65 76 74 4f | 62 6a 20 69 6e 74 6f 20 |," &evtO|bj into |
|00005e20| 63 64 20 66 6c 64 20 28 | 77 68 69 63 68 45 76 74 |cd fld (|whichEvt|
|00005e30| 2b 35 29 0d 70 75 74 20 | 69 74 20 69 6e 74 6f 20 |+5).put |it into |
|00005e40| 63 64 20 66 6c 64 20 28 | 77 68 69 63 68 45 76 74 |cd fld (|whichEvt|
|00005e50| 2b 32 29 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 69 |+2).end |if.end i|
|00005e60| 66 0d 65 6e 64 20 45 56 | 4e 54 5f 4f 42 4a 0d 00 |f.end EV|NT_OBJ..|
|00005e70| 00 04 00 09 00 02 00 00 | 00 00 00 00 00 00 00 29 |........|.......)|
|00005e80| 00 03 01 8d 02 7d 00 00 | 00 0b 53 63 72 65 65 6e |.....}..|..Screen|
|00005e90| 20 4c 69 73 74 51 03 dc | 00 01 ff ff 00 aa 2f 90 | ListQ..|....../.|
|00005ea0| 00 00 00 00 00 1d b4 10 | 00 94 d3 c8 00 00 03 ec |........|........|
|00005eb0| 00 01 ff ff 27 19 03 ed | 00 aa 2b 40 00 04 03 f4 |....'...|..+@....|
|00005ec0| 00 00 00 19 00 00 09 da | 00 00 0a 00 00 07 00 00 |........|........|
|00005ed0| 00 00 00 2c 00 04 01 51 | 01 f4 00 00 00 00 00 00 |...,...Q|........|
|00005ee0| 00 00 00 00 00 fa 3c f8 | 00 fa 3c bc 00 fa 55 60 |......<.|..<...U`|
|00005ef0| 00 fa 3c 68 00 00 00 69 | 42 6c 61 6e 6b 0d 37 2c |..<h...i|Blank.7,|
|00005f00| 33 2c 31 2c 33 2c 34 2c | 31 2c 31 2c 31 2c 30 2c |3,1,3,4,|1,1,1,0,|
|00005f10| 31 0d 76 69 73 75 61 6c | 20 70 6c 61 69 6e 20 66 |1.visual| plain f|
|00005f20| 61 73 74 20 74 6f 20 63 | 64 0d 67 6f 20 70 72 65 |ast to c|d.go pre|
|00005f30| 76 20 63 64 0d 67 6f 20 | 6e 65 78 74 20 63 64 0d |v cd.go |next cd.|
|00005f40| 0d 0d 0d 0d 35 37 37 0d | 0d 0d 00 00 04 00 09 00 |....577.|........|
|00005f50| 02 00 00 00 00 00 00 00 | 00 00 3c 00 14 01 42 01 |........|..<...B.|
|00005f60| ec 07 00 00 08 ce 01 2c | 00 02 00 00 00 00 00 64 |.......,|.......d|
|00005f70| 00 00 00 09 00 27 00 da | 00 44 01 b2 00 01 00 01 |.....'..|.D......|
|00005f80| 00 ff 00 ff 00 49 00 00 | 00 00 00 00 00 00 00 00 |.....I..|........|
|00005f90| ff ff ff ff ff ff ff ff | 00 01 00 01 00 00 00 02 |........|........|
|00005fa0| 00 00 00 00 00 fa 54 40 | 00 00 00 00 ff ff 00 00 |......T@|........|
|00005fb0| 00 00 00 00 00 01 00 a6 | 01 2c 00 02 00 00 00 00 |........|.,......|
|00005fc0| 00 65 00 00 00 09 00 55 | 00 2b 00 c8 02 30 00 01 |.e.....U|.+...0..|
|00005fd0| 00 01 00 ff 00 ff 00 01 | 00 00 00 00 00 00 00 00 |........|........|
|00005fe0| 00 00 ff ff ff ff ff ff | ff ff 00 01 00 01 00 00 |........|........|
|00005ff0| 00 02 00 00 00 00 00 fa | 57 e8 00 00 00 00 ff ff |........|W.......|
|00006000| 00 00 00 00 00 00 00 01 | 00 a7 00 6c 00 00 00 00 |........|...l....|
|00006010| 00 00 00 9f 00 00 00 01 | 01 97 02 00 01 c3 02 3b |........|.......;|
|00006020| 00 01 00 01 00 ff 00 ff | 00 00 00 00 aa 55 aa 55 |........|.....U.U|
|00006030| aa 55 aa 55 ff ff ff ff | ff ff ff ff 00 01 00 01 |.U.U....|........|
|00006040| 00 00 00 00 00 00 00 00 | 00 fa 54 a8 00 fa 3c 74 |........|..T...<t|
|00006050| f4 9e 00 dd f3 40 00 00 | 00 02 00 00 00 69 00 00 |.....@..|.....i..|
|00006060| 00 00 00 00 00 a1 00 00 | 00 01 01 98 01 c0 01 c5 |........|........|
|00006070| 02 03 00 01 00 01 00 ff | 00 ff 00 00 00 00 aa 55 |........|.......U|
|00006080| aa 55 aa 55 aa 55 ff ff | ff ff ff ff ff ff 00 01 |.U.U.U..|........|
|00006090| 00 01 ff ff 00 00 00 00 | 00 00 00 fa 56 f4 00 fa |........|....V...|
|000060a0| 52 fc 00 01 00 ee ec 70 | 42 00 48 44 00 13 00 00 |R......p|B.HD....|
|000060b0| 00 1f 00 00 44 4e 41 20 | 52 65 70 6c 69 63 61 74 |....DNA |Replicat|
|000060c0| 69 6f 6e 00 01 ff ff 00 | 03 00 12 00 01 00 00 00 |ion.....|........|
|000060d0| 00 05 00 00 01 e8 00 00 | 54 68 65 20 67 65 6e 65 |........|The gene|
|000060e0| 74 69 63 20 6d 61 74 65 | 72 69 61 6c 20 6f 66 20 |tic mate|rial of |
|000060f0| 74 68 65 20 63 65 6c 6c | 20 6d 75 73 74 20 62 65 |the cell| must be|
|00006100| 20 72 65 70 6c 69 63 61 | 74 65 64 20 62 65 66 6f | replica|ted befo|
|00006110| 72 65 20 63 65 6c 6c 20 | 64 69 76 69 73 69 6f 6e |re cell |division|
|00006120| 20 63 61 6e 20 74 61 6b | 65 20 70 6c 61 63 65 2e | can tak|e place.|
|00006130| 20 20 54 68 69 73 20 72 | 65 70 6c 69 63 61 74 69 |  This r|eplicati|
|00006140| 6f 6e 20 75 73 75 61 6c | 6c 79 20 6f 63 63 75 72 |on usual|ly occur|
|00006150| 73 20 64 75 72 69 6e 67 | 20 69 6e 74 65 72 70 68 |s during| interph|
|00006160| 61 73 65 2e 20 20 53 69 | 6e 63 65 20 69 74 20 77 |ase.  Si|nce it w|
|00006170| 61 73 20 66 6f 75 6e 64 | 20 74 68 61 74 20 44 4e |as found| that DN|
|00006180| 41 20 69 73 20 74 68 65 | 20 67 65 6e 65 74 69 63 |A is the| genetic|
|00006190| 20 6d 61 74 65 72 69 61 | 6c 2c 20 74 68 65 72 65 | materia|l, there|
|000061a0| 20 6d 75 73 74 20 62 65 | 20 73 6f 6d 65 20 77 61 | must be| some wa|
|000061b0| 79 20 66 6f 72 20 74 68 | 65 20 44 4e 41 20 74 6f |y for th|e DNA to|
|000061c0| 20 72 65 70 6c 69 63 61 | 74 65 2e 20 20 54 68 65 | replica|te.  The|
|000061d0| 20 75 6e 69 71 75 65 20 | 73 74 72 75 63 74 75 72 | unique |structur|
|000061e0| 65 20 6f 66 20 44 4e 41 | 20 61 6c 6c 6f 77 73 20 |e of DNA| allows |
|000061f0| 66 6f 72 20 69 74 27 73 | 20 72 65 70 6c 69 63 61 |for it's| replica|
|00006200| 74 69 6f 6e 2e 20 20 54 | 68 65 20 74 77 6f 20 73 |tion.  T|he two s|
|00006210| 74 72 61 6e 64 73 20 6f | 66 20 6e 75 63 6c 65 6f |trands o|f nucleo|
|00006220| 74 69 64 65 73 20 63 61 | 6e 20 22 75 6e 7a 69 70 |tides ca|n "unzip|
|00006230| 22 20 61 6e 64 20 65 61 | 63 68 20 73 74 72 61 6e |" and ea|ch stran|
|00006240| 64 20 63 61 6e 20 61 63 | 74 20 61 73 20 61 20 74 |d can ac|t as a t|
|00006250| 65 6d 70 6c 61 74 65 20 | 66 6f 72 20 74 68 65 20 |emplate |for the |
|00006260| 63 6f 6e 73 74 72 75 63 | 74 69 6f 6e 20 6f 66 20 |construc|tion of |
|00006270| 61 6e 6f 74 68 65 72 20 | 73 74 72 61 6e 64 2e 20 |another |strand. |
|00006280| 20 54 68 69 73 20 70 72 | 6f 63 65 73 73 20 69 73 | This pr|ocess is|
|00006290| 20 69 6c 6c 75 73 74 72 | 61 74 65 64 20 6f 6e 20 | illustr|ated on |
|000062a0| 74 68 65 20 6e 65 78 74 | 20 66 72 61 6d 65 73 2e |the next| frames.|
|000062b0| 00 00 ff ff 00 03 00 0c | 00 00 00 00 00 00 00 00 |........|........|
|000062c0| 02 a2 00 68 00 00 00 01 | 00 00 00 64 00 00 00 01 |...h....|...d....|
|000062d0| 01 98 02 01 01 c2 02 3a | 00 01 00 00 00 a2 00 aa |.......:|........|
|000062e0| 00 00 00 dd ff ff ff ff | ff ff ff ff 8e d0 00 00 |........|........|
|000062f0| 00 00 00 dd f2 c0 84 00 | 00 08 00 00 00 00 00 00 |........|........|
|00006300| 00 fa 3c fc 00 00 00 00 | 1d 14 00 0c 15 28 00 aa |..<.....|.....(..|
|00006310| 2d 80 00 dd 00 68 00 00 | 00 01 00 00 00 65 00 00 |-....h..|.....e..|
|00006320| 00 01 01 97 02 00 01 98 | 02 01 00 00 00 00 00 00 |........|........|
|00006330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006350| 00 00 00 fa 59 94 00 00 | 00 00 00 01 00 01 00 37 |....Y...|.......7|
|00006360| 00 00 00 02 00 00 00 68 | 00 00 00 01 00 00 00 66 |.......h|.......f|
|00006370| 00 00 00 01 01 98 02 01 | 01 c2 02 3a 00 00 00 01 |........|...:....|
|00006380| 00 00 00 ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006390| ff ff ff ff ff ff ff ff | 00 01 00 01 00 08 00 00 |........|........|
|000063a0| 00 00 00 00 00 fa 55 1c | 00 00 00 00 00 01 00 01 |......U.|........|
|000063b0| 00 37 00 00 00 02 00 00 | 00 68 00 00 00 01 00 00 |.7......|.h......|
|000063c0| 00 67 00 00 00 01 01 97 | 02 00 01 98 02 01 00 00 |.g......|........|
|000063d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000063e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000063f0| 00 00 00 00 00 00 00 fa | 3c 9c 00 00 00 00 00 01 |........|<.......|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.